Outsider77
Erfahrenes Mitglied
Abend! Ich weiß irgendwie nicht mehr weiter...
Ich bekomme folgende Fehlermeldung:
Laufzeitfehler 1004 - Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.
Das ist der Code dazu:
Beim Debuggen wird immer
markiert.
Es handelt sich um 2 Sheets und wenn in Sheet 1 was eingegeben wird, soll er auf Sheet 2 gehen und dort in 'Range A1' den Eintrag übernehmen.
Bitte um Hilfe
Ich bekomme folgende Fehlermeldung:
Laufzeitfehler 1004 - Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.
Das ist der Code dazu:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Variant
Dim r As Integer
a = Target.Value
If Not IsEmpty(a) Then
If IsArray(a) Then
a = a(1, 1)
End If
c = Left(ActiveCell.Address, 3)
r = Target.Row
If (c = "$A$") And r > 1 Then
If Len(a) = 6 And Right(a, 1) = "+" Then
Target.Value = Left(a, 3) & "." & Left(Right(a, 3), 2) & ".09W(+)"
Target.Offset(0, 0).Interior.ColorIndex = 3
Target.Offset(0, 1).Select
Selection.NumberFormat = "dd/mm/yy"
Target.Offset(0, 1) = Date
Sheets("Tüte HW 09").Select
Range("A1").Select
ActiveCell = Left(Target.Value, 10)
Else
If Len(a) = 10 Then
Target.Offset(0, 0).Interior.ColorIndex = xlNone
Sheets("Tüte HW 09").Select
Range("A1").Select
ActiveCell = Left(Target.Value, 10)
Else
If Len(a) = 5 Then
Target.Offset(0, 1).Select
Selection.NumberFormat = "dd/mm/yy"
Target.Offset(0, 1) = Date
Sheets("Tüte HW 09").Select
Range("A1").Select
ActiveCell = Left(Target.Value, 10)
End If
End If
End If
End If
End If
End Sub
Code:
Range("A1").Select
Es handelt sich um 2 Sheets und wenn in Sheet 1 was eingegeben wird, soll er auf Sheet 2 gehen und dort in 'Range A1' den Eintrag übernehmen.
Bitte um Hilfe