Teilstring in Spaltenüberschrift suchen
22.02.2021 11:20:43
Guest
Ich möchte die Spaltenüberschriften (Zeile 3) nach dem Text "Planung" durchsuchen und die gesamte Spalte auf Wert setzen (kopieren & Werte einfügen).
1. Problem ist, dass es mehrere Spalten mit dem Wert "Planung" gibt und alle auf Wert gesetzt werden sollen. Hier ist eine Schleife sicherlich die Lösung, allerdings kriege ich das selber nicht hin.
2. Problem ist, dass mein Code den Fehler "Index außerhalb des gültigen Bereichs" ausgibt.
Set PlanungZ1 = .Rows(3).Find(What:="Planung", LookIn:=x1Value, LookAt:=xlPart) ist gelb markiert...
Sub Value()
Dim PlanungZ1 As Range
Dim letzteZeile As Range
letztZeile = Sheets("Afr.").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Afr.").Copy
With Worksheets("Afr.")
Set PlanungZ1 = .Rows(3).Find(What:="Planung", LookIn:=x1Value, LookAt:=xlPart)
Set rng3 = .Range(.Cells(3, PlanungZ1.Column), .Cells(letztZeile, PlanungZ1.Column))
With rng3
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
End With
End Sub