Zeilen löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zeilen löschen
von: Ralf
Geschrieben am: 20.04.2005 13:25:54
Hallo,
ich möchte in der tab2 die Werte einzeln löschen können!
Das heißt wenn ich auf löschen klicke sollte ein Fenster aufgehen und nachgefragt werden welche Reihe gelöscht werden soll!
Wird jetzt z.B. in der Reihe 5
die Werte 5 19.04.2005 21:58:26 20 ABC E 10 \20\25
gelöscht,
so sollte die Zahl 5 erhalten bleiben und die Werte wo in der Reihe 6 standen automatisch in die 5 Reihe runter rutschen. Wenn wieder neue Werte von tab1 nach tab2 rüber kopiert werden sollten diese am Ende der Tabelle weiter aufgeführt werden.
https://www.herber.de/bbs/user/21383.xls
Ich hoffe dass mir jemand helfen kann

Bild

Betrifft: AW: Zeilen löschen
von: Michael Reich
Geschrieben am: 20.04.2005 15:39:08
Hallo Ralf,
so sollte es doch gehen:

Sub LoeschenClick()
    Dim intZeile As Integer
    intZeile = InputBox("Welche Zeile soll gelöscht werden?")
    intZeile = intZeile + 4 'Deine 1. Zeile beginnt ja in Zeile 5 von Excel
    Range("C" & intZeile & ":O" & intZeile).Select
    Selection.Delete Shift:=xlUp
End Sub

Gruß Micha
Bild

Betrifft: AW: Zeilen löschen
von: Ralf
Geschrieben am: 20.04.2005 17:10:17
Danke Micha, es funzt gut ;-)
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen löschen"