Nächste Zeile ermitteln und Werte eintragen
10.09.2018 08:06:57
Daniel
ich hab ein kleines Problem,
ich möchte nach der Eingabe einer Inputbox aus einem anderen Sheet eine Art Feedback erstellen und dabei immer die nächste Zeile nehmen, wenn die davor schon voll ist, also dynamisches, In der ersten Spalte, den User in Spalte B das Feddback und in Spalte C den Kurs.
so schaut mein Code daweil aus:
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
user = Application.UserName
feed = InputBox("Wie fanden Sie den Kurs?")
End If
If ActiveCell.Value = "" Then
Sheets("Feedback").Cells(2, 1) = user
Sheets("Feedback").Cells(2, 2) = feed
Sheets("Feedback").Cells(2, 2) = Sheets("Tazp").Target.Offset(, -6)
End If
End Sub
Vielen lieben Dank für Eure Hilfe!
LG Daniel