Wie kopiert man eine Zahl und überspringt 0 in VBA?

Um in VBA eine Zahl zu kopieren und dabei die Zahl 0 zu überspringen, kannst du eine Schleife verwenden, die die Zahlen durchläuft und nur die Zahlen kopiert, die nicht 0 sind. Hier ist ein Beispiel, wie das in VBA aussehen könnte:

```vba
Sub KopiereZahlenOhneNull()
Dim ws As Worksheet
Dim ZielWs As Worksheet
Dim i As Integer
Dim j As Integer

' Setze das Arbeitsblatt, von dem kopiert werden soll
Set ws = ThisWorkbook.Sheets("Quelle")
' Setze das Arbeitsblatt, auf das kopiert werden soll
Set ZielWs = ThisWorkbook.Sheets("Ziel")

j = 1 ' Initialisiere den Zielzeilenindex

' Durchlaufe die Zeilen im Quellarbeitsblatt
For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
' Überprüfe, ob die Zahl in der Zelle nicht 0 ist
If ws.Cells(i, 1).Value <> 0 Then
' Kopiere die Zahl in das Zielarbeitsblatt
ZielWs.Cells(j, 1).Value = ws.Cells(i, 1).Value
j = j + 1 ' Erhöhe den Zielzeilenindex
End If
Next i
End Sub
```

In diesem Beispiel:
- `ws` ist das Quellarbeitsblatt, von dem die Zahlen kopiert werden.
- `ZielWs` ist das Zielarbeitsblatt, auf das die Zahlen kopiert werden.
- Die Schleife durchläuft alle Zeilen in der ersten Spalte des Quellarbeitsblatts.
- Wenn der Wert in der Zelle nicht 0 ist, wird er in das Zielarbeitsblatt kopiert.

Stelle sicher, dass die Namen der Arbeitsblätter ("Quelle" und "Ziel") den tatsächlichen Namen deiner Arbeitsblätter entsprechen.