Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Zeilen löschen"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren