Komplexes zählverhalten

[Ralf A]

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
    Target.Offset(, -1) = Format(Date, "YYMM - ") & Format(Range("H1"), "000")
    Range("H1") = Range("H1") + 1
    End if
End If
End Sub

...naja, prüfe einfach, ob in Spalte A was steht.... hab den Code mal dahingehend angepasst....

[Cinderella]

Hallo Ralf


Danke für deine Mühen!
Also wenn ich das richtig verstanden habe kopiere ich den Code in das Steuerpanel.

Dann lege ich mir eine neue Tabelle an, nenne Sie Administrator und verändere dann deinen Code so, dass da wo H1 steht neu "Administrator!A2" steht.
So verlinke ich die Formel auf die Tabelle auf die Zelle A2, richtig?

Diese Admintabelle kann ich dann sperren.

Wenn ich jetzt in der Tabelle der Mitgliederliste einen neuen Namen in Spalte B eintrage wird in Spalte A "2311-" geschrieben und der Fehler:
"Laufzeitfehler '1004':
Die Methode 'Range' für das Objekt '_Workseet' ist fehlgeschlagen"

Was muss ich ändern?

Danke =)

MFG

[Ralf A]

...keine Ahnung, was Dein Steuerpanel ist. Der Code gehört in das Blatt, in das die ID's geschrieben werden sollen.
Und Range("H1") muss natürlich korrekt referenziert werden.

Code:

Worksheets("Administrator").Range("A2")

Es genügt, wenn Du das Adminblatt ausblendest, dann musst Du Dich nicht um den Blattschutz kümmern... oder... Du benutzt ihn und kümmerst Dich darum... 

[Cinderella]

Also nocheinmal ich...


Wenn ich das richtig verstehe kopiere ich folgenden Code im Microsoft VBA in die Tabelle "Mitgliederliste" (Da liegt unsere Mitgliederliste):

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
    Target.Offset(, -1) = Format(Date, "YYMM - ") & Format(Worksheets("Administrator").Range("A2"), "000")
    Range(Worksheets("Administrator").Range("A2")) = Range(Worksheets("Administrator").Range("A2")) + 1
    End If
End If
End Sub

Ist das richtig?

Dann muss ich in der Tabelle "Administrator" in Zelle A2 auch was eintragen oder gar nichts?

MFG

[RPP63]

Moin!
Darf ich mal eine dämliche Frage stellen?
Da wir ja nicht im Film "Zurück in die Zukunft" sind:
Was spricht dagegen, nach 2311-013 manuell 2311-014 einzugeben?
Gut, man muss höllisch aufpassen, dass der Monat in der nächsten Woche wechselt und man "vollautomatisch" wieder bei 001 anfangen muss …
… habe ich nicht bedacht!

Gruß Ralf

[Cinderella]

Hey RPP63

Dagegen spricht nichts.

Nur bin ich bei solchen Dingen dann so, dass ich mich frage wieso manuell wenns auch automatisch geht =D

Aber recht hast du schon ja. Trotzdem wäre es nice wenns gehen würde.

MFG

[Ralf A]

Dann muss ich in der Tabelle "Administrator" in Zelle A2 auch was eintragen oder gar nichts?

...die Antwort darauf kann man:
1. dem Code entnehmen oder
2. falls wider erwarten doch nicht, dann durch einfaches ausprobieren selbst herausfinden

Wie jetzt? Jeden Montag soll die Zählerei wieder bei 0 starten?

Also, in das Modul der Mitgliederliste:

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 WorksheetFunction.Weekday(Date, 1) = 2 And .Range("A2") > 0 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

[Cinderella]

Hallo Ralf

Also mein Latein ist bei Programmierung definitiv zuende. In dem Code verseh ich gar nichts, tut mir leid.

Ich würde nicht fragen wenn ichs verstehen würde. Da merke ich einmal mehr das solche Dinge wohl eher Männern
vorenthalten sind... leider.

Nein, die zählerei soll einfach durchgehend weitergehen. Das macht keinen Sinn jeden Monat neu.

---

Jetzt kommt wieder eine Fehlermeldung

"Fehler beim Kompilieren: If-Block ohne End If"

Bin ich zu doof? Was mach ich falsch

[Ralf A]

...hat nix mit Frau oder Mann zu tun... ist 'ne Frage der Erfahrung....

Da hast Du vermutlich nicht den kompletten Code kopiert.... scroll mal im Codefenster bis zum End Sub nach unten.... da gehts weiter.... :)
Der war aber eh falsch, nimm den hier:

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

Ist jetzt aber nun doch für jeden Monat neu. Ist auch besser so, so bist Du nicht auf 999 Mitglieder beschränkt...
Und wenn Du wissen willst, wieviele es sind, schaust Du einfach auf die letzte Zeilennummer.... :)

[Cinderella]

Hallo Ralf

Danke nochmals für Deine Hilfe.

Leider wird wieder ein Fehler ausgespielt

Der Debugger zeigt folgende Zeileteile als Falsch an:


If CInt(Mid(Target.Offset(-1, -1), 3, 2)) <> Month(Date) Then


Ist da ein Schreibfehler?

MFG