Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

InputBox und Zeilen löschen

Forumthread: InputBox und Zeilen löschen

InputBox und Zeilen löschen
01.09.2020 10:51:34
Michel
Hallo in die Runde
Ich habe folgenden Code, bei dem der Nutzer eine Spalte auswählen kann und dann anhand dieser Spalte die leeren Zeilen gelöscht werden.
  • 
Sub LeereZeilenLöschen()
Dim i As Integer, rws As Long, spalte As Integer
spalte = InputBox("Welche ist Ihre Referenzspalte?")
rws = Cells(rows.Count, Columns(spalte)).End(xlUp).Row
For i = rws To 1 Step (-1)
If IsEmpty(Cells(i, 1)) = True Then
rows(i).Delete
End If
Next
End Sub


    • Am liebsten wäre mir, wenn der Nutzer nicht die Spaltennummer, sondern den Buchstaben der Spalte eingeben kann.
    Ich freue mich auf Eure Hilfe
    VG Michel
    Anzeige

    10
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: InputBox und Zeilen löschen
    01.09.2020 11:20:15
    Rudi
    Hallo,
    z.B. 
    Sub LeereZeilenLöschen()
Dim i As Integer, rws As Long, spalte
spalte = InputBox("Welche ist Ihre Referenzspalte?")
If Not IsNumeric(spalte) Then spalte = Range(spalte & "1").Column
rws = Cells(Rows.Count, Columns(spalte)).End(xlUp).Row
For i = rws To 1 Step (-1)
If IsEmpty(Cells(i, 1)) = True Then
Rows(i).Delete
End If
Next
End Sub

    Gruß
    Rudi
    Anzeige
    AW: InputBox und Zeilen löschen
    01.09.2020 11:24:25
    Michel
    Hi Rudi,
    Du hast "spalte" nicht deklariert. Ich habe es einmal als Integer und einmal als String deklariert. Leider kommt bei beiden noch eine Fehler...
    VG Michel
    AW: InputBox und Zeilen löschen
    01.09.2020 11:36:48
    Werner
    Hallo,
    Sub LeereZeilenLöschen()
Dim i As Integer, rws As Long, spalte As String
spalte = InputBox("Welche ist Ihre Referenzspalte?")
If Not IsNumeric(spalte) Then spalte = Range(spalte & "1").Column
rws = Cells(Rows.Count, CLng(spalte)).End(xlUp).Row
For i = rws To 1 Step (-1)
If IsEmpty(Cells(i, 1)) = True Then
Rows(i).Delete
End If
Next
End Sub
    Gruß Werner
    Anzeige
    AW: InputBox und Zeilen löschen
    01.09.2020 11:42:33
    Michel
    Mhh, bei mir tut sich da nicht viel.
    Hast Du es bei Dir einmal ausprobiert oder muss ich noch etwas beachten?
    Hoffenlich verrennst Du Dich hier nicht ...
    01.09.2020 11:56:40
    Matthias
    Hallo
    Warum brauchst Du eine Referenzspalte als Inputbox, wenn Du dann in der Schleife die Spalte(1)
    auf leer prüfst.
    Wenn Deine Spalte("A") also Spalte(1) leer ist löschst Du so ALLE Zeilen.
    Gruß Matthias
    Anzeige
    AW: InputBox und Zeilen löschen
    01.09.2020 12:04:59
    Werner
    Hallo,
    Sub LeereZeilenLöschen()
Dim i As Integer, rws As Long, spalte As String
Application.ScreenUpdating = False
spalte = InputBox("Welche ist Ihre Referenzspalte?")
If Not spalte = vbNullString Then
If Not IsNumeric(spalte) Then
spalte = Range(spalte & "1").Column
rws = Cells(Rows.Count, CLng(spalte)).End(xlUp).Row
For i = rws To 1 Step (-1)
If IsEmpty(Cells(i, CLng(spalte))) Then
Rows(i).Delete
End If
Next
End If
End If
End Sub
    Gruß Werner
    Anzeige
    AW: InputBox und Zeilen löschen
    01.09.2020 12:12:05
    Michel
    Jetzt funktioniert es einwandfrei. Vielen Dank an alle Helfer!
    Schönen Tag noch!
    Gerne u. Danke für die Rückmeldung. o.w.T.
    01.09.2020 12:16:59
    Werner
    nicht deklariert?
    01.09.2020 12:33:16
    Rudi
    natürlich. 
    Dim i As Integer, rws As Long, spalte

    wenn kein Typ angegeben ist, ist es Variant.
    Anzeige
    AW: Ohne Schleife
    01.09.2020 13:14:27
    Gerd
    Moin 
    Sub DelRows()
Dim Spalte As Variant, C As Range
Spalte = InputBox("Welche ist Ihre Referenzspalte?")
On Error Resume Next
Set C = Cells(1, Spalte).EntireColumn
On Error GoTo 0
If Not C Is Nothing Then
If WorksheetFunction.CountBlank(C) > 0 Then
C.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
Set C = Nothing
End If
End Sub

    Gruß Gerd
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    wenn > Spalte I, dann neue Zeile
    Dennis

    Hallo Leute,
    ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
    Ich habe folgendes Problem:
    Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
    04.09.2008 16:41:00
    Thread-ID: 1007458
    8 Beiträge
    Zeilen mit bestimmten Inhalt löschen
    sascha76er

    Hallo,
    ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
    Ist das möglich, wenn ja wie?
    Vorab vielen Dank
    Sascha
    08.12.2008 13:35:00
    Thread-ID: 1031058
    6 Beiträge
    wenn zelle gelb, dann ganze zeile loeschen
    maxx_1985

    Hi zusammen
    wie kann man excel das folgende sagen;
    wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
    gelb sind naemlich die zwischensummen, die ich raus haben moechte.
    danke euch vielmals
    gruss
    denis
    10.12.2008 16:19:09
    Thread-ID: 1031735
    8 Beiträge
    Suchen und ersetzen ohne Neuanfang bei Zeile 1
    Stefan

    Hallo liebes Froum,
    ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
    03.03.2009 11:26:38
    Thread-ID: 1055879
    19 Beiträge
    Wenn bistimmte Werte in zwei Zellen dann Zeile ..
    Micha

    Hallo zusammen,
    habe folgendes Problem:
    habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
    in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
    steht in einer der besagten Zellen ein anderer Werte soll nichts...
    14.05.2009 08:36:57
    Thread-ID: 1074984
    4 Beiträge
    Anzeige
    suchen und bestimmte Zelle löschen
    Peter

    Hallo
    ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
    das dann die übernächste Zelle nach unten gelöscht wird.
    Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
    Wer weiß wie ic...
    19.06.2009 20:22:11
    Thread-ID: 1083023
    2 Beiträge
    Anzeige
    Zeilen löschen wenn ...
    Marion65

    Hi zusammen,
    habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
    Gruß Marion
    https://www.herber.de/bbs/user/62707.xls
    24.06.2009 04:57:02
    Thread-ID: 1083974
    8 Beiträge
    Anzeige
    Wenn Zeile doppelt dann löschen
    walli

    Guten Morgen,
    ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
    löschen.
    Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
    es soll dann die doppelte Zeile nur von A-M gelöscht werden.
    mfg walli
    24.06.2009 11:29:15
    Thread-ID: 1084058
    5 Beiträge
    Zeile löschen , wenn doppelt, Makro ?
    walli

    Hallo zusammen,
    hatte vorhin geschrieben, leider nicht mehr im Forum.
    Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
    soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
    diese Doppelte dann von A-M löschen.
    Das Ende der Tabelle kann von A6 bis 500 ode...
    24.06.2009 12:45:17
    Thread-ID: 1084084
    4 Beiträge
    Zeilen löschen wenn ...
    Marion65

    Hallo zusammen,
    habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
    Gruß Marion
    https://www.herber.de/bbs/user/62728.xls
    Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
    Sub BegriffSuchenZeilenLoesc...
    24.06.2009 20:27:47
    Thread-ID: 1084196
    8 Beiträge
    Makro läuft nicht. Zeile löschen wenn...
    Christoph

    Hallo,
    ich habe eine große Tabelle und möchte die Zeilen löschen, die eine "1" in Spalte O:O haben.
    Ich habe auch hier und in anderen Foren eine Reihe Makros gefunden. Unter anderem dieses hier:
    Sub loeschen() Dim loZeile As Long Application.ScreenUpdating = False For loZeile = 12...
    01.07.2009 13:38:55
    Thread-ID: 1085695
    10 Beiträge
    Doppelte Zelleneinträge dann ZEILE löschen
    Wolle

    Hallo alle zusammen,
    habe noch ein Problem:
    Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
    Bereich: B:B
    Beispiel:
    B1 = 100
    B2 = 500 ..... bleibt stehen
    B3 = 500 ..... ZEILE löschen
    08.07.2009 12:32:46
    Thread-ID: 1087167
    5 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige