Excel - Zeile in anderes Tabellenblatt kopieren...

Hallo,

mein Problem:

Ich habe ein Tabellenblatt mit ca. 400 Zeilen und 14 Spalten. Ich möchte nun, wenn in einer bestimmten Zeile eine "Null" steht, dass die gesamte Zeile in ein neues Tabellenblatt kopiert wird. Steht in dieser Zeile keine "Null" soll die Zeile in ein drittes Tabellenblatt kopiert werden. Ich habe leider noch so gut wie keine Erfahrung mit VBA, wäre super wenn ihr mir helfen könntet.

Danke

Answer 1

[Suboptimierer]

Also jetzt gaaaanz simpel und unoptimiert:

Sub NullAussortieren()
  Dim bGefunden
  Dim i
  Dim j
  Dim iNextRowTab2
  Dim iNextRowTab3

  iNextRowTab2 = 11 'Bsp.
  iNextRowTab3 = 1  'Bsp.
  
  For i = 1 To 400
    bGefunden = False
    For j = 1 To 14
      If Worksheets("Tabelle1").Cells(i, j) = "Null" Then
        bGefunden = True
        Exit For
      End If
    Next j
    If bGefunden Then
        Worksheets("Tabelle1").Range("A" & i).EntireRow.Copy _
          Destination:=Worksheets("Tabelle2").Range("A" & iNextRowTab2)
        iNextRowTab2 = iNextRowTab2 + 1
    Else
        Worksheets("Tabelle1").Range("A" & i).EntireRow.Copy _
          Destination:=Worksheets("Tabelle3").Range("A" & iNextRowTab3)
        iNextRowTab3 = iNextRowTab3 + 1
    End If
  Next i
End Sub

Comments

[w0lling3r]

Hallo Suboptimierer,

Danke für die Hilfe.

Welche Spalte wird in diesem Code untersucht? Denn es werden alle Zeilen in ein Tabellenblatt kopiert.

Die Spalte die untersucht werden soll ist die achte (H)...

Danke im voraus...

LG Steffen

[Suboptimierer]

@w0lling3r

Das hättest du ruhig in deiner Frage erwähnen können.

Die innere Schleife kannst du dir in dem Fall sparen und direkt

bGefunden =  Worksheets("Tabelle1").Cells(i, 8) = "Null"

setzen.

Answer 2

[maximilianus7]

anregungen:

1. for each cell in ...
2. Zeile kopieren: Makro aufzeichnen

lg, max.

Comments

[w0lling3r]

kannst du mir da mal n VBA zeigen...

wie gesagt ich bin da total grün...

LG Steffen