Thema Datum  Von Nutzer Rating
Antwort
Rot Find value in Column and insert if not exist
 01.02.2023 17:44:08 Mike
Solved
01.02.2023 18:02:21 ralf_b
*****
Solved
02.02.2023 13:24:34 Gast86194
Solved

Ansicht des Beitrags:
Von:
Mike		 Datum:
01.02.2023 17:44:08		 Views:
330		 Rating:
     
Antwort:
 Nein
Thema:
Find value in Column and insert if not exist

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Find value in Column and insert if not exist
 01.02.2023 17:44:08 Mike
Solved
01.02.2023 18:02:21 ralf_b
*****
Solved
02.02.2023 13:24:34 Gast86194
Solved