Hallo zusammen,
ich habe eine Tabelle mit 3 Spalten:
Pro | Name | Link
1 | test |
2 | test | xx
3 | test |
4 | test | xx
3 | test |
ich möchte die Spalte Link über den Spaltennamen suchen und in die leeren Zellen Werte bis zur letzten befüllten Zeil der Tabelle eintragen.
Mein Code Ansatz:
Rows("1:1").Select
Selection.Find(What:="Link", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).EntireColumn.Select
Dim Bereich As Range
Dim Zelle As Range
With ActiveSheet
Set Bereich = .Range(?Spaltenname? & .Range("A:C").SpecialCells(xlCellTypeLastCell).Row)
End With
For Each Zelle In Bereich
If Zelle.Value = "" Then Zelle.Value = "xx"
Next
Vielen Dank !