Excel Makro Zeile einfügen mir Bedingung

Computer: Software & Programmierung Office Software
1

Hallo,

ich habe schn gegoogelt und selber probiert…komm aber auf keinen grünen Zweig.

Ich möchte in einer bestimmten Spalte (BE) suchen. Wenn in dieser Spalte der Wert „0“ gefunden wurde, dann soll darüber eine Leerzeile eingefügt werden. Anschliessend weitersuchen.

Ich habe jetzt folgenden Code:

Columns(„BE:BE“).Select
Range(„BE31“).Activate
Selection.Find(What:=„0“, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range(„BE41“).Select

Allerdings wird das nur einmal ausgeführt…

Danke für Eure Unterstützung

2

Hallo Rico.

Ich möchte in einer bestimmten Spalte (BE) suchen. Wenn in
dieser Spalte der Wert „0“ gefunden wurde, dann soll darüber
eine Leerzeile eingefügt werden. Anschliessend weitersuchen.

Der folgende Code macht das, was Du beschrieben hast:

 Dim Zeile As Long
 For Zeile = Tabelle3.Range("$BE$" & CStr(Tabelle3.Rows.Count)).End(xlUp).Row To 1 Step -1
 If Tabelle3.Range("$BE$" & CStr(Zeile)) = 0 Then
 Tabelle3.Rows(Zeile).Insert
 End If
 Next

Den Code-Namen der Tabelle mußt Du wahrscheinlich noch anpassen.

Kurze Funktionsbschreibung:
Es wird von der letzten, nicht leeren Zelle in Spalte BE bis Zeile 1 nach der Zahl Null gesucht und gegebenenfalls eine Zeile eingefügt.

VG
Carsten