Hallo Liebe Excel VBA Helfer,
auch Ich brauche mal bitte eure Hilfe.
Ich möchte in einer Excel Tabelle eine Überschrift in der gesamten vierten Zeile suchen. Wenn es diese Überschrift nicht gibt dann muss diese in der Spalte AF 4 erstellt werden. Sollte es diese Überschrift irgendwo in der vierten Spalte geben dann soll nichts gemacht werden. Die MsgBox ist nur zum testen vorhanden.
Sub Find_header()
Dim SrcWbk As Workbook
Set SrcWbk = ActiveWorkbook
With SrcWbk
Set c = .Find("dicken Pulli an", LookIn:=xlValues)
If Not c Is Nothing Then
Columns("AF").Insert Shift:=xlToRight
Else
MsgBox "Critical Example", vbCritical
End If
End With
End Sub
Diesen Code habe ich dafür erstellt, aber irgendwie fehlt da noch etwas.....
Vielen Dank schon mal für eure Unterstützung.
Gruss
Mike
|