VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Gast42505	Datum: 02.11.2018 16:15:12	Views: 925	Rating:	Antwort:
Thema: Bedingte Formatierung
Hallo Leute Ich komme nicht klar auf ein Problem mit VBA. Mit folgendem Code kann ich immer dann eine neue Zeile einfügen, wenn das Schlüsselwort: "Zeile einfügen" in meinem Dokument steht: Dim lngI As Long With ActiveSheet For lngI = .Range("B65536").End(xlUp).Row To 1 Step -1 If .Cells(lngI, 2).Value = "Zeile einfügen" Then ' Schluesselwort: Zeile einfügenIf .Cells(lngI, 1).Value = "Zeile einfügen" Then ' Schluesselwort: Zeile einfügen .Rows(lngI + 1 & ":" & lngI + 1).Insert Shift:=xlUp End If Next lngI End With Leider fügt mir dieser Code aber immer Zeilen mit einer bedingten Formatierung ein. Wie kann ich Zeilen ohne bedingte Formatierung einfügen? lg, Stefan

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