Hallo Leute,
ich habe ein VBA Problem. Und zwar habe ich eine Tabelle die von ca. Spalte A - Spalte AZ geht.
Nun möchte ich aus Spalte Q einen Namen Filtern und die ersten 2, die dann in Spalte R geschrieben werden sollen, soll das Makro sich aus Spalte L hohlen.
Habe es versucht mit dem folgenden Coding zu realisieren. Nur leider besteht hier das Problem, dass die Tabelle erst ab Zeile 59 beginnt. Und mir das Makro jetzt in allen Zeilen dadrüber auch die Strings einfügt.
Selection.AutoFilter Field:=16, Criteria1:="Mustermann, Max"
With Application.Intersect(Columns("A:AA").SpecialCells(xlCellTypeConstants).EntireRow, Columns("R"))
.SpecialCells(xlCellTypeVisible).Value = "TP/EM"
End With
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=16, Criteria1:="Musterfrau, Maria"
With Application.Intersect(Columns("A:AA").SpecialCells(xlCellTypeConstants).EntireRow, Columns("R"))
.SpecialCells(xlCellTypeVisible).Value = "TP/ES"
End With
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=16, Criteria1:="Beispiel, Ben"
With Application.Intersect(Columns("A:AA").SpecialCells(xlCellTypeConstants).EntireRow, Columns("R"))
.SpecialCells(xlCellTypeVisible).Value = "TP/EC"
End With
Hoffe ich hab das jetzt ein bisschen verständlich erklärt...
Vielen Dank für eure Hilfe.
Grüße