03.05.2018, 11:16
(Dieser Beitrag wurde zuletzt bearbeitet: 03.05.2018, 11:23 von DeLaGhetto.)
Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Tabelle (als Tabelle formatiert), in dieser Tabelle sind momentan 7 Namen eingetragen.
Jetzt möchte ich über 2 verschiedene Makros Namen zu dieser Tabelle hinzufügen bzw. wieder löschen.
Hinzufügen ist einfach, habe ich schon erstellt:
Jetzt möchte ich das gleiche auch für das löschen eines Namens haben. Dafür muss der Auswahlbereich der Namen erscheinen, dann wird der zu löschende Name ausgewählt, anschließend soll dann die komplette Zeile gelöscht werden, in der der Name in der Tabelle vorkam.
Hoffe ihr könnt mir dabei helfen.
PS: Die Dropdownliste hat bei mir einen Namen, in diesem Fall "Mikrofon".
ich habe folgendes Problem:
Ich habe ein Tabelle (als Tabelle formatiert), in dieser Tabelle sind momentan 7 Namen eingetragen.
Jetzt möchte ich über 2 verschiedene Makros Namen zu dieser Tabelle hinzufügen bzw. wieder löschen.
Hinzufügen ist einfach, habe ich schon erstellt:
Code:
Sub Neuen_Namen_anlegen()
Dim vEingabe As Variant
vEingabe = InputBox("Name eingeben")
If vEingabe = "" Then
MsgBox "Anlegen eines Namens abgebrochen", vbInformation
Else
Worksheets("Namen").Cells(Rows.Count, "B").End(xlUp).Offset(1).Value = vEingabe
Worksheets("Namen").Cells(Rows.Count, "E").End(xlUp).Offset(1).Value = vEingabe
Worksheets("Namen").Cells(Rows.Count, "H").End(xlUp).Offset(1).Value = vEingabe
Worksheets("Namen").Cells(Rows.Count, "K").End(xlUp).Offset(1).Value = vEingabe
Worksheets("Namen").Cells(Rows.Count, "N").End(xlUp).Offset(1).Value = vEingabe
MsgBox "Der Name wurde angelegt"
End If
End Sub
Jetzt möchte ich das gleiche auch für das löschen eines Namens haben. Dafür muss der Auswahlbereich der Namen erscheinen, dann wird der zu löschende Name ausgewählt, anschließend soll dann die komplette Zeile gelöscht werden, in der der Name in der Tabelle vorkam.
Hoffe ihr könnt mir dabei helfen.
PS: Die Dropdownliste hat bei mir einen Namen, in diesem Fall "Mikrofon".