Laufzeitfehler bei Range auswählen

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:
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
Beim Debuggen wird immer
Code:
Range("A1").Select
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
 
Hi,

stampf doch gleich die 3 Zeilen ein
Code:
            Sheets("Tüte HW 09").Select
            Range("A1").Select
            ActiveCell = Left(Target.Value, 10)
zu
Code:
            Sheets("Tüte HW 09").Range("A1") = Left(Target.Value, 10)

Dann musst du nicht erst zum Tabellenblatt wechseln, aber der Wert steht trotzdem drinne.


-DD-
 
Zurück