Thema Datum  Von Nutzer Rating
Antwort
12.10.2022 14:53:13 Johannes
Solved
Blau Werte in Zellen um Zeile ergänzen - mit Vorgabewert
 13.10.2022 11:34:24 UweD
*****
Solved

Ansicht des Beitrags:
Von:
UweD		 Datum:
13.10.2022 11:34:24		 Views:
347		 Rating:
     
Antwort:
 Nein
Thema:
Werte in Zellen um Zeile ergänzen - mit Vorgabewert

Hallo

versuch es mal so...

Sub ergaenzen()
    Dim Sp As Integer, Z1 As Integer, LR As Long, i As Long, Vorgabe As String
    Sp = 2 'Spalte B
    Z1 = 2 'Daten ab dieser Zeile
    
    Vorgabe = InputBox("Vorgabe?", "Juhu", "Q1-22")
    If Vorgabe <> "" Then
    
        LR = Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte

        For i = Z1 To LR
        
            With Cells(i, Sp)
                
                If .Value = "Neu" Then
                    .Value = Vorgabe
                ElseIf .Value <> "" Then
                    .Value = .Value & vbLf & Vorgabe
                End If
            
            End With
        Next
        
    End If
End Sub

 

LG UweD

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.10.2022 14:53:13 Johannes
Solved
Blau Werte in Zellen um Zeile ergänzen - mit Vorgabewert
 13.10.2022 11:34:24 UweD
*****
Solved