Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe eine Tabelle als Urlaubsplan eingerichtet. Sie besteht aus 10 Zeilen und jewelis einer Spalte pro Tag. Pro Spalte dürfen max 2 Eintagungen erfolgen, eine dritte nur nach Eingabe eines Passwortes. Hat da jemand eine Idee. Gruß vvv

Moin,

was wird das´n für´n Urlaub?
Wenn ich in Urlaub fahre, lasse ich vor allem zwei Sachen zu Hause:
Pläne (ausser Stadtplänen) und Wecker ;-)

Egal, hier meine Idee:
Annahme, Deine Tabelle geht von A1:J10 incl. Spaltenüberschriften, dann setzt Du in in irgendeine Zeile unterhalb der Tabelle die Formel
=ANZAHL(A2:A10)
=ANZAHL(B2:B10) usw
Dann könnte man ein Changeereignis schreiben, das bei jeder Eingabe eine Inputbox aufruft, wenn der jeweilige Zellenwert aus Zeile 11 > 2 ist.
In diese Inputbox muß zuerst ein Passwort eingegeben werden. Wenn dies richtig ist, dann folgt eine zweite Inputbox, in die der gewünschte Eintrag vorgenommen wird.
Bei Eingabe eines falschen Passworts in der Inputbox erfolgt Makroabbruch.

MfG
schnallgonz

_{Signatur und Textformatierungen wurden mit SNTool V1.1.12 erstellt}

Hi,
vielen Dank für deine rasche Antwort, die Pläne sind auch nur für vor dem Urlaub. Im Urlaub verfahre ich ähnlich wie Du.
Zu deinem Vorschlag:
mit der Tabelle und den Formeln komme ich klar, aber mit Changeereignis und Inputbox kann ich leider nichts anfangen, mangels ausreichender Kenntnis.
Vielleicht hast Du da noch etwas mehr Infos für mich.

MfG
vvv

N´abend,

Wenn das so ist, versuche ich mich besser gleich am Listing.
Habe leider nichts entsprechendes auf Vorrat, geht also nicht sofort.
Ist aber vorgemerkt.
MfG
schnallgonz

Salve,

ich hatte einen Denkfehler:
die Nummer mit der ANZAHL-Funktion funzt leider nicht, weil nach der Eingabe aus der Inputbox dieser Wert natürlich > 2 ist und damit keine Werteingabe möglich ist.

Ich versuche, das anders zu basteln mit ´ner Art Indexzelle, in der die Spalteneinträge mitgezählt werden und eine richtige Passworteingabe einen Abzug bewirkt.

Vielleicht gibt´s noch andere Ideen.
Im Moment kann ich leider nix versprechen.

MfG
schnallgonz

_{Signatur und Textformatierungen wurden mit SNTool V1.1.12 erstellt}

N´abend,

also ich habe wahrscheinlich ziemlich umständlich was zurecht gebastelt.
Funz so nur zur Überwachung einer Spalte bzw. eines Spaltenausschnitts, Passwort ist schnallgonz.
Die Ampelzelle kann man etwas versteckt unterbringen, aber das ist natürlich kein echter PW-Schutz (für´n Urlaubsplan wohl auch nicht so wichtig).
Ich habe im Moment noch keine Idee, das übersichtlich für eine Mehrfachüberwachung zu organisieren.
Vielleicht liest das ja ein VBA-Spezi und hat einen Verbesserungsvorschlag.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
´nach 2 Eingaben im Bereich Eingabe nur nach PW-Abfrage
´Eingabezählung mittels ANZAHL2 in beliebiger Zelle
Dim s As String
Dim i As Integer
Dim Montag As Range
Application.EnableEvents = False
Set Montag = Range("B2:B11")
Rem "Ampelzelle" für Eingabeüberwachung
i = Cells(13, 2).Value
    If Not Intersect(Target, Montag) Is Nothing Then
    Rem Ampel nach Eingabe ein Zähler hoch
    Cells(13, 2).Value = i + 1
    If i > 1 Then
    s = InputBox("Bitte gib das Passwort für weitere Einträge ein", _
    "Passwortabfage", "Passwort")
    If s = "" Or s <> "schnallgonz" Then GoTo schicht
    If s = "schnallgonz" Then
    Rem wenn PW richtig, Ampel auf 2 um Eingabe zuzulassen
    Cells(13, 2).Value = 2
    Target.Value = Target.Value
    End If
    End If
    End If
Application.EnableEvents = True
Exit Sub
schicht:
Rem Sprungmarke bei falschem PW, Eingabe rückgängig, Ampel deshalb auf 0
Target.Value = ""
Cells(13, 2).Value = 2
Application.EnableEvents = True
End Sub

Schlimmstenfalls reiht man die Schleifen aneinander, obwohl das ziemlich gruselig wäre.

MfG
schnallgonz

_{Signatur und Textformatierungen wurden mit SNTool V1.1.12 erstellt}

Hi,
nochmals vielen Dank für dein Mühe, werde einige Zeit brauchen um da durchzublicken. Ich lasse dich wissen obs klappt.
Gruß vvv

• Excel Formeln
• Formeln Excel
• Formeln kopieren
• Formeln für Word
• Nur Formeln drucken