Supportnet / Forum / Tabellenkalkulation

Hallo, ich muss eine Tabelle per Makro abchecken. Die Idee ist: Zunächst wird letzte Zeile ermittelt. Zeilenindex läuft dann in einer FOR-Schleife, es wird verglichen: Ist Zelleninhalt identisch mit einem definierten String? Wenn ja: dann soll in benachbarten Zellen etwas eingetragen werde. Also quasi: ... Set lastcell = ActiveSheet.Cells.SpecialCells(xlLastCell) Letzte_Zeile = lastcell.Row Akt_Spalte = 4 FOR Akt_Zeile = 5 to Letzte_Zeile IF [Inhalt von Zelle(Akt_Zeile, Akt_Spalte)] = "Dieser String" THEN [Inhalt von Zelle(Akt_Zeile-1, Akt_Spalte-1)] = "Dies" [Inhalt von Zelle(Akt_Zeile, Akt_Spalte-1)] = "Das" [Inhalt von Zelle(Akt_Zeile+1, Akt_Spalte-1)] = "Jenes" ENDIF NEXT Akt_Zeile ... Wie müßte das genau aussehen? Bin für jeden Tip dankbar, Volker

Hi Volker,

versuche es mal mit diesem Code

Sub eintragen()
    Dim loLetzte As Long, loI As Long
    Dim inSpalte As Integer
    inSpalte = 2
    loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    For loI = 1 To loLetzte
        If Cells(loI, inSpalte) = "Dieser String" Then
            Cells(loI, inSpalte).Offset(-1, -1) = "Dies"
            Cells(loI, inSpalte).Offset(0, -1) = "Das"
            Cells(loI, inSpalte).Offset(1, -1) = "Jenes"
        End If
    Next loI
End Sub

Bis später,
Karin

• vba vergleich des zelleninhalts
• Excel Spalten vergleichen
• Excel: In einem Bereich eine Zelle mit Inhalt finden
• Inhalt von Zellen in mehreren Zeilen vergleichen und mit einer Bedingung prüfen
• Excel Inhalte durchsuchen