Office: (Office 2010) VBA - Text in Spalte D wenn in Spalte I = X

Hallo,

ich bin ein totaler leie in VBA und bräuchte eure Hilfe.

Ich habe ein Tabelle in der in Spalte D div. Informationen stehen wie z.B.
Spalte D Spalte E/F/G/H Spalte I
Montag
Montag
Montag
Leerzeile x
Dienstag
Dienstag
Leerzeile x

Ich habe nun per Formel in Spalte I ein X setzen lassen, wenn diese Zeile leer ist.
Nun will ich dass in Spalte D Text steht, wenn in Spalte I ein X ist

Spalte D Spalte E/F/G/H Spalte I
Montag
Montag
Montag
Summe x
Dienstag
Dienstag
Summe x

Hat jemand Ahnung wie ich das machen kann? Die Werte in Spalte D dürfen nicht verändert werden - nur die Leerzeile darf beschrieben werden.

TAUSEND DANK!

Bernhard

 

Hallo!

Um alle Leerzellen in Spalte D mit "Summe" zu füllen, brauchst du doch kein "x" in Spalte I

Code:

Sub Test()
    Columns("D:D").SpecialCells(xlCellTypeBlanks) = "Summe"
End Sub

 

Hallo Schatzi,

ich brauche leider doch ein X - da die Tabelle Überschriften hat und nur in einem bestimmten - leider aber dynamischen Bereich - Summe drin stehen soll. das mit den Überschriften hab ich leider total vergessen zu schreiben (Asche auf mein haupt) Ich benutze das X auch schon für eine bedingte Formatierung.

Verregnete Grüße

Bernhard

 

Hallo!

Dann versuch es so:

Code:

Sub Test()
    Dim i As Long, Ende As Long
    Ende = Cells(Rows.Count, 9).End(xlUp).Row
    For i = 1 To Ende
        If Cells(i, 9) = "X" Then Cells(i, 4) = "Summe"
    Next i
End Sub

 

Hi Bernhard,

man muss dazu nicht jede Zeile einzeln durchlaufen, das geht ganz einfach mit der FindNext-Methode:

Code:

Sub SummeEintragen()
    Dim rngZelle As Range
    Dim strStart As String
    Set rngZelle = Columns("I").Find("x", lookat:=xlWhole, LookIn:=xlValues)
    If Not rngZelle Is Nothing Then
        strStart = rngZelle.Address
        Do
            rngZelle.Offset(0, -5) = "Summe"
            Set rngZelle = Columns("I").FindNext(rngZelle)
        Loop While rngZelle.Address <> strStart
    End If
    Set rngZelle = Nothing
End Sub

Bis später,
Karin