Schönen guten Abend an alle,
leider stecke ich wieder mal fest und bräuchte eure Hilfe.
Darum bitte ich euch mal das folgende Makro anzusehen.
Hier eine Kurze Erläuterung: Es wird über ein Dropdown ein Kellner ausgewählt, ist die geschehen wird ein Wert aus eine Zelle übernommen,
(bei Tisch 1 wäre es der wert aus „H52“), das heißt der wert aus H52, (übrigens Gäste-anzahl) wird in die Zeile 47 gesetzt, die Spalte hängt vom „im Dropdown ausgewählten Namen ab“ und zwar variiert dies zwischen Spalte „BT46 und CH46“.
Dieses nachstehende Makro funktioniert einwandfrei.
Beim auswählen eines Kellners wird die Gäste-Anzahl in die richtige Zelle gelegt, bei erneuter Eingabe, wird der Wert, 21 Zeilen weiter unten hinzugefügt und das möchte ich ändern. Die Gäste-Anzahl soll in eine festgelegten Zelle eingefügt werden Bsp. „BT46“ oder „BU46“ oder „BV46“ usw.
Vielen Dank im Voraus
Schöne Grüße
Aki
PS: Habe dies versucht, klappt aber nicht
If Target.Address = "$M$52" And IsNumeric(Target.Value) Then
For i = 72 To 78
If Cells(45, i).Value = Cells(49, 9) Then
Cells(Cells(Rows.Count, i).End(xlUp).Row =”46”) = Cells(52, 8)
End If
Next
End If
***************************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
‘Tisch1’
If Target.Address = "$M$52" And IsNumeric(Target.Value) Then
For i = 72 To 78
If Cells(45, i).Value = Cells(49, 9) Then
Cells(Cells(Rows.Count, i).End(xlUp).Row + 2, i) = Cells(52, 8)
End If
Next
End If
‘Tisch2’
If Target.Address = "$M$74" And IsNumeric(Target.Value) Then
For i = 72 To 78
If Cells(45, i).Value = Cells(71, 9) Then
Cells(Cells(Rows.Count, i).End(xlUp).Row + 23, i) = Cells(74, 8)
End If
Next
End If
‘Tisch3’
If Target.Address = "$M$96" And IsNumeric(Target.Value) Then
For i = 72 To 78
If Cells(45, i).Value = Cells(93, 9) Then
Cells(Cells(Rows.Count, i).End(xlUp).Row + 45, i) = Cells(96, 8)
End If
Next
End If
************************************************************************
Und so Weiter bis Tisch Nr. 30