Supportnet / Forum / Tabellenkalkulation
Bereich über Inputbox auf MEHREREN Tabellenblätter markieren
Frage
Hallo Leute!
Ich habe eine Excel Datei mit drei identisch aufgebauten Tabellenblättern, in denen in der ersten Spalte Kundennamen aufgeführt sind. Der User wird gefragt, ob er einen Kunden löschen möchte und soll diesen über eine Inputbox markieren. Anschließend soll auf allen drei Arbeitsblättern die Zeile mit dem markierten Kunden gelöscht werden.
Hier mein VBA Code:
[code]Sub löschen()
Dim wseins As Worksheet
Dim wszwei As Worksheet
Dim wsdrei As Worksheet
Dim löschung As Range
Dim NameKundenLöschung As String
Dim Löschabfrage As Integer
Set wseins = Sheets("Tabelle1")
Set wszwei = Sheets("Tabelle2")
Set wsdrei = Sheets("Tabelle3")
Set löschung = Application.InputBox(prompt:="Bitte_ markieren Sie den Kunden, den Sie löschen_ möchten", Type:=8)
löschung.Select
NameKundenLöschung = wseins.Range_(löschung.Address).Value
Löschabfrage = MsgBox("Möchten Sie den Kunden "_ & NameKundenLöschung & " wirklich löschen?",_ vbYesNo)
If Löschabfrage = vbYes Then
wseins.Activate
löschung.Select
Selection.EntireRow.Delete
wszwei.Activate
löschung.Select
Selection.EntireRow.Delete
wsdrei.Activate
löschung.Select
Selection.EntireRow.Delete
End If
End Sub[/code]
Für das erste Tabellenblatt funktioniert das einwandfrei, aber bei dem zweiten und dritten Blatt taucht der Laufzeitfehler "424" (Objekt nicht definiert) auf.
Wie kann ich das Objekt "löschung" auch auf die anderen Tabellenblätter übertragen?
Vielen Dank für Eure Mühe!
Antwort 1 von yps
hi,
man muss nicht activieren um zu löschen
x = loeschung.Row
If Loeschabfrage = vbYes Then
wseins.Rows(x).Delete
wszwei.Rows(x).Delete
wsdrei.Rows(x).Delete
End If
cu Micha
man muss nicht activieren um zu löschen
x = loeschung.Row
If Loeschabfrage = vbYes Then
wseins.Rows(x).Delete
wszwei.Rows(x).Delete
wsdrei.Rows(x).Delete
End If
cu Micha
Antwort 2 von yps
hi nochmal,
ich hatte die Variablen umbenannt (Umlaute werden nicht in jeder Sprachversion richtig erkannt)
solltest du eventuell auch mal dran denken ;-)
cu Micha
ich hatte die Variablen umbenannt (Umlaute werden nicht in jeder Sprachversion richtig erkannt)
solltest du eventuell auch mal dran denken ;-)
cu Micha
Antwort 3 von Asperitas
Hallo Micha,
vielen dank für Deine Hilfe - funktioniert jetzt wunderbar! Danke auch für den Hinweis mit den Umlauten; bisher hat es aber noch keine Probleme bereitet...
Lieben Gruß, Asperitas
vielen dank für Deine Hilfe - funktioniert jetzt wunderbar! Danke auch für den Hinweis mit den Umlauten; bisher hat es aber noch keine Probleme bereitet...
Lieben Gruß, Asperitas