Zellen auf einer Seite lassen
Hamza
ich hab ein Probelem. Wie unten in meiner Formel steht,
kopiere ich einfach spalten aus einer Tabelle in eine andere.
Meistens gehen die zeilen über eine Seite. Da es nur zwei spalten sind.
Möchte ich gerne das die Zeilen die in der Zweiten Seite auftauchen,
einfach neben den anderen hinplazieren.
Geht das irgendwie`?
Private Sub CommandButton1_Click()
Sheets("Eintrag").Select
Dim dat As Date
dat = Me.TextBox1
sp = 2
Do While Cells(1, sp) > dat
sp = sp + 1
Loop
Cells(1, sp).Select
Columns(sp).Select
Selection.Copy
s = Me.TextBox1
Sheets.Add.Name = s
Columns("C:C").Select
ActiveSheet.Paste
Sheets("Eintrag").Select
Columns("A:A").Select
Selection.Copy
Sheets(s).Select
Columns("A:A").Select
ActiveSheet.Paste
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("C" & i).Value = 0 Or Range("C" & i).Value = "" Then Rows(i).Delete
Next
End Sub
Gruß Hamza
Anzeige