Probleme mit Laufzeifehler 13 Typen unverträglich
14.01.2004 08:04:13
Scotty
habe eine Arbeitsmappe mit zwei Arbeitsblättern. 1. Blatt (tabelle1) 2. Blatt (Protokoll). Im Blatt Protokoll werden Änderungen aus Blatt 1 protokolliert. Im Blatt Protokoll sind untenstehende Makros. Das Protokollieren funktioniert ganz gut es gibt nur ein Problem. Wenn ich in Tabelle 1 einen Wert ändere, in dem ich einen Wert mit gedrückter linker Maustaste durch ziehen in eine andere Zelle kopiere, kommt die Fehlermeldung "Laufzeitfehler 13, Typen unverträglich" und es wird die Zeile: 'If InhaltNeu = "" Then' im Makro gelb markiert. Was mach ich falsch??
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
InhaltAlt = Target.Value
ZellAddress = Target.Address(False, False, xlA1)
End Sub
Private Sub worksheet_change(ByVal Target As Range)
Dim InhaltNeu, Benutzer As String, DatZeit
ZeilProt = Worksheets("Protokoll").Range("A1").CurrentRegion.Rows.Count + 1
InhaltNeu = Target.Value
If InhaltNeu = "" Then
InhaltNeu = "leer"
ElseIf InhaltAlt = "" Then
InhaltAlt = "leer"
End If
Benutzer = Application.UserName
DatZeit = Date + Time
With Worksheets("Protokoll")
.Cells(ZeilProt, 1).Value = ActiveSheet.Name
.Cells(ZeilProt, 2).Value = ZellAddress
.Cells(ZeilProt, 3).Value = InhaltAlt
.Cells(ZeilProt, 4).Value = InhaltNeu
.Cells(ZeilProt, 5).Value = Benutzer
.Cells(ZeilProt, 6).Value = DatZeit
End With
ZeilProt = ZeilProt + 1
End Sub
Schönen Dank schonmal an alle die helfen
Gruß Scotty