range...select
04.07.2003 11:23:47
floriAN
Ich habe das problem, dass bei dem befehl range(a1).select ein laufzeitfehler 1004 ersheint. Anwendungs- oder objektdefinierter fehler.
Dabei arbeite ich so oft mit diesem befehl und er funktioniert auch immer. Wenn ich im vba editor das gleiche in einem anderen blatt mache, dann funktioniert es wieder.
Kann mir jemand helfen.
Hier der gesamte code
Private Sub CommandButton3_Click()
Dim ENDADRESSE
Worksheets(zahlen).Activate
Range(a1).Select hier kommt die fehlermeldung
Do
'In der Schleife wird nur immer schön brav bei jedem Schleifendurchlauf eine Zeile nach unten
'und Null Spalten nach rechts gegangen
ActiveCell.Offset(1, 0).Select
'Und zwar so lange, bis die Active Zelle leer ist
Loop Until ActiveCell.Value = "" And ActiveCell.Offset(1, 0).Value = ""
'Danach gebe ich der ENDADRESSE den Wert von der direkt über der aktiven Zelle liegenden Zelle
'genauer gesagt, die Adresse dieser Zelle stellt den Wert der ENDADRESSE dar
ActiveCell.Offset(-1, 0).Select
'Für die For Each...Next-Schleife brauch ich wieder eine Variable
For i = 0 To 7 Step 1
Sheets("tabelle2").Cells(1, 21 + i).Value = Mid(ActiveCell.Value, 10 + i, 1)
Sheets("tabelle2").Cells(1, 11 + i).Value = Mid(ActiveCell.Value, 26 + i, 1)
Next i
ActiveCell.Offset(-1, 0).Select
LottoÜbertragen ActiveCell.Value
ZZübertragen ActiveCell.Value
ActiveCell.Offset(-1, 0).Select
Selection.Copy
Worksheets("test").Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Worksheets("tabelle2").Activate
Range("a1").Select
End Sub
florian