Auflistung Parkdauer von Autos

Hallo,
ich habe einen Parkplatzbereich in 6 Zonen eingeteilt, mit je zwei Parkbereichen und Nummerierung.
In den Bereichen möchte ich die Kennzeichen eingeben sobald ein Auto dort parkt und möchte das Kennzeichen wieder entfernen sobald das Auto abgeholt wird.
Ist es möglich, dass wie in der Beispieldatei in ein Parkbereich ein Kennzeichen eingegeben wird automatisch die Aufstellung ab Zeile 22 erstellt wird mit den ganzen Daten von dem Parkbereich ( Datum mit Uhrzeit der Eingabe, Kennzeichen, Zone, Bereich, Platz und abgestellt oder abgeholt) eingetragen wird ?
Es soll wenn wie im Beispiel Zelle AK 6 das Kennzeichen eines Autos eingegeben wird, wie hier 888, dann soll es in der Tabelle ab Zeile 22 die Daten: Datum und Uhrzeit der Eingabe, Kennzeichen, Zone, Bereich, Platz und abgestellt oder abgeholt automatisch eintragen.
Bei "abgestellt" soll "ja" eingetragen werden wenn ein Kennzeichen eingegeben wird.
Wenn das Kennzeichen 888 im Beispiel Zelle AK 6 wieder entfernt wird, soll automatisch ein neuer Eintrag in der nächsten freien Zeile erzeugt werden mit den ganzen Daten, nur soll bei abgeholt ein ja stehen und bei abgestellt soll die Zelle leer sein.
Die Einträge sollen jeweils in der nächsten freien Zeile aufgenommen werden, damit später eine Auswertung über die Parkdauer darüber erstellt werden kann.
Ist es verständlich erklärt und ist dies über Excel VBA möglich ?
Vielen Danke für eure Unterstützung.
Gruß Thomas
https://www.herber.de/bbs/user/146393.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Auflistung Parkdauer von Autos

26.05.2021 22:31:05

Autos

Datei zerschossen!

26.05.2021 22:48:03

Yal

AW: Datei zerschossen!

26.05.2021 23:24:25

ralf_b

Jetzt tut's

27.05.2021 00:09:09

Yal

AW: Jetzt tut's

27.05.2021 18:55:50

Thomas

AW: Jetzt tut's

27.05.2021 20:40:32

Yal

Lustig!

26.05.2021 22:42:02

Yal

Private Sub Worksheet_Change(ByVal Target As Range) Dim KennZ, Zone, Bereich, Platz, action As Boolean Dim letzte As Long Application.EnableEvents = False If Not Intersect(Target, Intersect(Range("6:7,15:16"), Columns("C:AU"))) Is Nothing Then Bereich = Cells(Target.Row, "B").Value Select Case Target.Column Case 3 To 17: Zone = IIf(Target.Row > 10, "F", "C") Case 18 To 32: Zone = IIf(Target.Row > 10, "E", "B") Case 33 To 47: Zone = IIf(Target.Row > 10, "D", "A") End Select KennZ = Target.Value Platz = Cells(5, Target.Column).Value action = IIf(Target = "", False, True) letzte = Cells(Rows.Count, "A").End(xlUp).Row Range("A" & letzte + 1) = Now() Range("C" & letzte + 1) = KennZ Range("F" & letzte + 1) = Zone Range("H" & letzte + 1) = Bereich Range("J" & letzte + 1) = Platz If action Then Range("L" & letzte + 1) = "ja" Else Range("N" & letzte + 1) = "ja" End If End If Application.EnableEvents = True End Sub

Hallo Thomas,
Es ist verständlich und über VBA-möglich. und gar nicht mal so kompliziert.
Dafür habe ich die Zonen "benannt":
_ Zone_A: Bereich C6 bis Q7 markieren, im kleinen Fenster oben links, wo C6 steht "Zone_A" eingetragen, mit Enter bestätigt
_ Dito Zone_B mit R6:AF7, Zone C, ....
Es ergibt unter Reiter "Formeln", Auswahl "Namensmanager" 6 benannte Bereiche "Zone_A", "Zone_B", ...
Dann kann man leichter abfangen, wenn sich etwa in diesen Bereiche sich ändert:
Wenn der Inhalt einer Zelle geändert wird, startet das Ereignis "Worksheet_Change" und die Zelle wird als "Target" übergeben.
Dann prüft man, ob diese Zelle in einer der Zone liegt (Intersect)
Wenn es zutrifft, übergibt man die Information an der erste leere Zeile in der Liste (A1, C1, .. sind relative Bezüge in dieser Zeile)


Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
Dim Zone
For Each Zone In Split("A,B,C,D,E,F", ",")
Set R = Intersect(Target, Me.Range("Zone_" & Zone))
If Not R Is Nothing Then
With Me.Range("A99999").End(xlUp).Offset(1, 0).EntireRow
.Range("A1") = Now 'Datum
.Range("C1") = IIf(Target.Value = "", AlteKennzeichen, Target.Value) 'Kennzeichen
.Range("F1") = Zone 'Zone
.Range("H1") = Me.Cells(Target.Row, 2) 'Bereich
.Range("J1") = Me.Cells(5, Target.Column) 'Platz
.Range("L1") = IIf(Target.Value = "", "", "Ja") 'Abgestellt
.Range("N1") = IIf(Target.Value = "", "Ja", "") 'Abgeholt
End With
Exit For
End If
Next
End Sub

Knifflig ist, wenn man einen Kennzeichen löscht (Taste Entf). Da muss man sich vorher merken, was in der Zelle war.
Es wird mit dem Ereignis "Worksheet_SelectionChange": wenn die Markierung einer Zelle sich ändert, wird aufgenommen, was in der Zelle, die gerade ausgewählt wurde, drin ist. Achtung: es wird nur eine Zelle "gemerkt". Du darfst daher nicht mehrere Zellen gleichzeitig leeren! (auch befüllen sollte nur einzel, aber da kann weniger schief laufen).


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then AlteKennzeichen = Target.Value
End Sub

Solltest Du es erweitern wollen: fest ist nur, dass in Zeile 5 die Platznummer und in Spalte B die Bereiche sind. Und die Zonen müssen ein Namen im Form Zone_x haben.
https://www.herber.de/bbs/user/146395.xlsm
Viel Spass damit.
VG
Yal

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread