Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Löschen Button

Löschen Button
12.01.2008 19:36:52
Fred
Hallo zusammen
Ich habe ein problem und benötige nochmal Eure Hilfe.
Über einen Button kann man Eine Zeilennummer Eingeben und diese wird dann gelöscht.
Ist es möglich den Bereich Von A4 Bis M100 einzuschränken. Da ich in N wieder Werte stehen habe die nicht gelöscht werden Dürfen.
Hier mal mein jetziger Code:
Dim i As Integer
On Error GoTo ErrorHandler
i = InputBox("zu löschende Zeilen Nummer eingeben")
Cells(i, 1).EntireRow.Delete
If i = "" Then Exit Sub
End
ErrorHandler:
MsgBox "O.K " & "wurde ausgeführt!"

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen Button
12.01.2008 19:39:00
Herbert
Hi,
Range(Cells(i, 1), Cells(i, 13)).Delete shift:=xlUp
mfg Herbert

AW: Löschen Button
12.01.2008 19:53:00
Fred
vielen Dank

AW: Löschen Button
12.01.2008 19:50:00
Erich
Hallo Fred,
wilsst du wirklich die Zellen in Spalte A bis M einer Zeile komplett löschen?
Wenn du A5:M5 löscht, stehen danach die Werte von A6:M6 in derselben Zeile
wie der Wert der unveränderten Zelle N5.
Das kann sinnvoll sein, muss aber nicht.
Das Errorhandling brauchst du dabei nicht. Mein Vorschlag:

Sub Loesch()
Dim lngZ As Variant
lngZ = InputBox("zu löschende Zeilen Nummer eingeben")
If IsNumeric(lngZ) Then
If lngZ > 4 And lngZ 

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige