Zellen per VBA löschen
22.03.2013 08:21:02
Julia
ich habe folgenden Code:
Sub CommandButton1_Klicken()
Dim x As Double, i As Double
ActiveSheet.Move before:=Sheets(1) 'setzt Actives Blatt an erste Stelle
x = 2
For i = 5 To Sheets.Count
With Sheets(i)
Cells(x, 1) = .Name
Cells(x, 3).Value = .Cells(58, 6)
Cells(x, 5).Value = .Cells(58, 7)
End With
x = x + 1
Next i
End Sub
Danke für die Hilfe.
VG Julia