...Du musst den Code schon komplett übernehmen, denn nach dem Then gehts ja weiter:
If CInt(Mid(Target.Offset(-1, -1), 3, 2)) <> Month(Date) Then .Range("A2") = 0
Und vorallem: in der gleichen Zeile. OHNE Zeilenumbruch!
Das habe ich schon so. Aber diesen Teil der Zeile hat der Debugger gelb markiert. da sagt er stimmt was nicht.
Hier mein eingetragener Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 2 And Target <> "" Then
If Target.Offset(, -1) = "" Then
Application.EnableEvents = False
With Sheets("Administrator")
If CInt(Mid(Target.Offset(-1, -1), 3, 2)) <> Month(Date) Then .Range("A2") = 0
Target.Offset(, -1) = Format(Date, "YYMM - ") & Format(.Range("A2"), "000")
.Range("A2") = .Range("A2") + 1
End With
End If
End If
Application.EnableEvents = True
End Sub
...kann ich nicht nachvollziehen.
Kannst Du die Datei mal anhängen?
PS: Was Du mal versuchen kannst, schreib vor dem Mid mal ein VBA. (mit dem Punkt)
Also:
Code:
If CInt(VBA.Mid(Target.Offset(-1, -1), 3, 2)) <> Month(Date) Then .Range("A2") = 0
Hilfe, jetzt geht gar nichts mehr. Es kommen gar keine zahlen mehr raus dabei.
Ich versuch dir die Datei mal kurz über pn zuzustellen.
MFG
[
attachment=50086]
[
attachment=50085]
Vor der PN, probier diese. In B10 mal irgendwas eintragen....
bei mir geht das nicht. obwohl ich die sicherheitswarnung deaktiviert habe. eigentlich sollte das doch jetzt gehen?
Hallo
Auch wenn ich hier mit zu tun habe, habe ich aus Interesse die Datei von Ralf A ausprobiert, bei mir läuft sie problemlos und macht das was sie tun soll.
Hallo Ralf
Danke nochmals für Deinen Aufwand.
Die Datei die du geschickt hast läuft also nun auch bei mir.
Aber nur wenn ich was eintrage.
Wenn ich aber einen Namen hineinkopiere und mit Enter bestätige gibt Excel einen Fehler aus.
Geht das nur mit schreiben?
MFG
Oder kann das was damit zu tun haben das wir auf der Haupttabelle auf A7 beginnen und du auf A1?
....smile....
Mein Fehler.... hatte nicht bedacht, dass Du noch keine Einträge in der Liste hast. Dann läuft der Code selbstverständlich in einen Fehler.
Hier die Korrektur:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Target.Count = 1 And Target.Column = 2 And Target <> "" Then
If Target.Offset(, -1) = "" Then
Application.EnableEvents = False
With Sheets("Administrator")
If IsNumeric(Mid(Target.Offset(-1, -1), 3, 2)) Then _
If CInt(Mid(Target.Offset(-1, -1), 3, 2)) <> Month(Date) Then .Range("A2") = 0
Target.Offset(, -1) = Format(Date, "YYMM - ") & Format(.Range("A2"), "000")
.Range("A2") = .Range("A2") + 1
End With
End If
End If
Fehler:
Err.Clear
Application.EnableEvents = True
End Sub
Hallo Ralf
Ich habe den Code eingestellt und es funktioniert=)
Vielen herzlichen Dank dir. Das ist superlieb.
Ich wünsche Dir noch ein schönes Wochenende.
MFG