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

Ansicht des Beitrags:
Von:
Gast86194		 Datum:
02.02.2023 13:24:34		 Views:
255		 Rating:
     
Antwort:
 Nein
Thema:
Find value in Column and insert if not exist

Vielen Dank, genau das war das Problem.
Macro Läuft.

 

Sub Find_header()

Dim SrcWbk As Workbook
Dim c As Range

Set SrcWbk = ActiveWorkbook

With SrcWbk.Worksheets("Blattname")
    Set c = .Range("A4:AL4").Find(What:="dicken Pulli an", LookIn:=xlValues, LookAt:=xlWhole, _
        MatchCase:=False, SearchFormat:=False)
    If Not c Is Nothing Then
       GoTo 10
    Else
        Columns("AF").Insert Shift:=xlToRight
    End If
End With
10
Call ende1
End Sub

 

Hier mal der komplettee Code, fall jemand diese Lösung auch sucht.

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
01.02.2023 17:44:08 Mike
Solved
01.02.2023 18:02:21 ralf_b
*****
Solved
Rot Find value in Column and insert if not exist
 02.02.2023 13:24:34 Gast86194
Solved