Hi,
ich habe versucht eine Schleife zu bauen - leider flackert der Bildschirm nur durchgehend und _ ich muss die Schleife abbrechen. Ich möchte Zeile 3 nach "Planung" (Teil des Zellwerts) durchsuchen und alle Spalten, die in der Überschrift (Zeile 3) "Planung" enthalten kopieren & die Werte einfügen.
Sub FindValue()
Dim c As Range
Dim firstAddress As String
Dim letzteSpalte As Long
letzteSpalte = Sheets("Nfr.").Cells(3, Sheets("Nfr.").Columns.Count).End(xlToLeft).Column
'Blatt kopieren
Sheets("Afr.").Copy
With Worksheets("Nfr.").Range(Cells(3, 1), Cells(3, letzteSpalte))
Set c = .Find(what:="Planung", LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
.EntireColumn.Select
.Copy
.PasteSpecial Paste:=xlPasteValues
Loop While Not c Is Nothing
End If
End With
End Sub
Please send help!