VBA- automatiosche Zeilenidentifizierung

Hi,
Ich habe ein kleines Protokoll geschrieben in dem der Nutzer einfach per Button
einen Zeitstempel in Spalte D,
den Excel-Nutzernamen in Spalte E sowie ein Eingabefeld welches dann die Eingabe in Spalte F einträgt.

Sub SchaltflächeAudit_07_Klicken()
'Definition der Variablen
Dim StempelZeit As Date
Dim eingabe As String

UserN = Application.UserName
Zeitstempel = Now

Sheets("PROTOKOLLAUFGABE").Range("D7").Value = Zeitstempel
Sheets("PROTOKOLLAUFGABE").Range("E7").Value = UserN

'InputBox mit Dialogfeld
eingabe = InputBox("Bitte geben Sie zusätzliche Informationen ein")

'Eingabewert in MsgBox ausgeben
'MsgBox eingabe

'Eingabewert in eine Zelle schreiben
Sheets("PROTOKOLLAUFGABE").Range("F7").Value = eingabe

End Sub

So habe ich 23 Button kreiert die entsprechend alle in der jeweilige Zeile die Information ablegen.
Jetzt soll ergänzend zur Zeile mit dem Button eine oder mehrere Zeilen eingefügt werden um den Protokollverlauf genauer zu beschreiben oder zu ergänzen...
Somit funktioniert natürlich die Schaltfläche nicht mehr mit der zugehörigen Zeile...

Wie kann ich die jeweilige Zeile des zugehörigen Button identifizieren und in der Formel benutzen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin :-)

wenn ich das richtig verstehe, hast du - 23 mal - den obigen Code geschrieben, mit jeweils angepasster Zeile, oder?

Wenn ja = viel zu viel Aufwand!, weil der obige Code reicht genau - 1 mal - und könnte trotzdem von 23 (oder mehr) unterschiedlichen Button verwendet werden...nämlich mit Übergabe eines eindeutigen Parameters, anhand dessen dann immer die jeweils richtige Startzeile für die Tabelle bestimmt wird.

Dazu aber müssten wir wohl deine Datei umbauen...also den Code, so wie du ihn bisher verwendest.
Dazu ist es aber erforderlich, dass du uns bitte mal per Upload eine Excel-Bsp-Datei mit Bsp-Daten, 3 oder 4 Button und deinem bisherigen Code für 3 oder 4 Button zeigst - damit wir auch...sehen können...was da passiert, bzw, was passieren soll.

Ciao
Thorsten

Sub SchaltflächeAudit_99_Klicken() 'Definition der Variablen Dim StempelZeit As Date Dim eingabe As String Dim Zeile As Long Zeile = Sheets("PROTOKOLLAUFGABE").Cells(Rows.Count, "D").End(xlUp).Row + 1 If Zeile 7 Then Zeile = 7 UserN = Application.UserName Zeitstempel = Now Sheets("PROTOKOLLAUFGABE").Range("D" & Zeile).Value = Zeitstempel Sheets("PROTOKOLLAUFGABE").Range("E" & Zeile).Value = UserN 'InputBox mit Dialogfeld eingabe = InputBox("Bitte geben Sie zusätzliche Informationen ein") 'Eingabewert in MsgBox ausgeben 'MsgBox eingabe 'Eingabewert in eine Zelle schreiben Sheets("PROTOKOLLAUFGABE").Range("F" & Zeile).Value = eingabe End Sub

Sub Protokoll() 'Definition der Variablen Dim strEingabe As String Dim lRow As Long With Sheets("PROTOKOLLAUFGABE") lRow = .Shapes(Application.Caller).TopLeftCell.Row .Cells(lRow, 4).Value = Now .Cells(lRow, 5).Value = Environ("username") 'InputBox mit Dialogfeld strEingabe = InputBox("Bitte geben Sie zusätzliche Informationen ein") 'Eingabewert in MsgBox ausgeben 'MsgBox eingabe 'Eingabewert in eine Zelle schreiben .Cells(lRow, 6).Value = strEingabe End With End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Zeitstempel As Date, UserN As String, Anz As Integer If Not Intersect(Target, Columns(6)) Is Nothing Then 'Nur bei in F 'UserN = Application.UserName 'In Excel hinterlegte Name 'Besser UserN = Environ("Username") 'Anmeldename des Nutzers am Netzwerk Zeitstempel = Now Anz = InputBox("Anzahl?", "Leerzeilen ergänzen", 0) If Anz > 0 Then Rows(Target.Row + 1).Resize(Anz).Insert End If Target.Offset(0, -1).Value = Zeitstempel Target.Offset(0, -2).Value = UserN End If End Sub

Beliebteste Forumthreads (12 Monate)

VBA- automatiosche Zeilenidentifizierung

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA- automatiosche Zeilenidentifizierung

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread