Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Heiandi am März 10, 2013, 18:05:33 Nachmittag
-
Hallo Leute
ich habe eine Tabelle die ich per Userform mit Daten fülle. jetzt brauche ich ein Makro das mir aus dieser Tabelle Zeilen löscht. Die Tabelle sieht so aus: Spalte B Namen der Mitarbeiter, Spalte C Datum z.B. Meier 12.05.13. Jetzt möchte ich aus der Tabelle per userform einen Namen auswählen und das dazugehörige Datum und dann diese Zeile löschen.
Im Moment verwende ich dieses Makro:
Private Sub cmdDatensatzlöschen_Click()
'löscht den Datensatz
Dim Antwort
Antwort = MsgBox("Soll der ausgewählte Datensatz gelöscht werden?", vbQuestion + vbYesNo, "Sicherheitsabfrage")
If Antwort = vbNo Then
Exit Sub
End If
Sheets("Tabelle2").Activate
Rows(Me.cmbMitarbeiter.ListIndex + 2).Select
Selection.Delete Shift:=xlUp
End Sub[/font]
Vielen dank schon mal im vorraus
-
Hallo,
es stellt sich mir die Frage: "Und warum soll es etwas anderes sein?" - Ohne die datei (mit anonymisierten Daten) wird dir nur schwer geholfen werden können, zumal dein geposteter Code etwas "eigenwillig" ist.
-
Hi,
und wo ist das Problem? Der Code macht doch genau das - auch wenn man auf Select und Activate verzichten kann.
Falls deine Tabelle in einer anderen Zeile beginnt, musst du nur + 2 durch den entsprechendne Zeilenversatz ersetzen.
Bis später,
Karin