Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Die Zeile, der aktiven Zelle löschen!

Forumthread: Die Zeile, der aktiven Zelle löschen!

Die Zeile, der aktiven Zelle löschen!
04.07.2002 10:52:46
Silvio
Ich öffne eine UserForm diese zeigt mir in den TextFeldern
den jeweiligen Zellinhalt an... (funktioniert soweit auch)

Sinn des ganzen ist: Einen Kundennamen anklicken in der Tabelle und anschließend in der USERFORM die Kundendaten bearbeiten zu können. Das funktioniert auch gut. Möchte jetzt hier noch die Möglichkeit die Kundendaten zu löschen. Das würde funktionieren
wenn ich die Textfelder leer mache und auf OK klicke, damit bleibt aber eine leere Zeile stehen.!

Also dachte ich neuer Button in die USERFORM und der sollte folgendes können:
Lösche die ganze Zeile der gerade aktiven Zelle...

Mein Versuch war folgender:
'Bei Klick auf Löschen
Private Sub cmdLoeschen_Click()
ActiveSheet.Rows.Delete Shift:=xlUp
Unload Me
End Sub

Leider wird hier alles gelöscht in meiner Tabelle: "Stammdaten"
ich möchte aber die Zeile der aktiven Zelle löschen ....
was mach ich falsch...
Vielen Dank für eure Hilfe

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Die Zeile, der aktiven Zelle löschen!
04.07.2002 10:55:22
Andreas
Hallo Silvio,

schau Dir das mal an:
ActiveCell.EntireRow.Delete

Viel Spaß,
Andreas

Re: Die Zeile, der aktiven Zelle löschen!
04.07.2002 10:56:49
sam
hi,

mit deinem Befehl löscht du alle Reihen des aktiven Blattes.
Versuchs damit, dann klappts.

(Shift:=xlUp ist standardmäßig eingestellt)
Gruß aus Oberösterreich,
Sam

Anzeige
Re: Die Zeile, der aktiven Zelle löschen!
04.07.2002 11:00:18
Danke an beide... funkt. jetzt prima!(o.T.)

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Die Zeile der aktiven Zelle löschen in Excel


Schritt-für-Schritt-Anleitung

Um die gesamte Zeile der aktiven Zelle in Excel zu löschen, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineArbeitsmappe)", wähle "Einfügen" und dann "Modul".

  3. Füge den folgenden Code ein:

    Sub ZeileLoeschen()
       ActiveCell.EntireRow.Delete
    End Sub
  4. Speichere deine Änderungen und schließe den VBA-Editor.

  5. Führe das Makro aus: Gehe zu Entwicklertools > Makros, wähle ZeileLoeschen und klicke auf Ausführen.

Wenn du einen Button in deiner UserForm hast, kannst du den Code zum Löschen der Zeile so anpassen:

Private Sub cmdLoeschen_Click()
    ActiveCell.EntireRow.Delete
    Unload Me
End Sub

Häufige Fehler und Lösungen

  • Problem: Alle Zeilen im aktiven Blatt werden gelöscht.

    • Lösung: Stelle sicher, dass du ActiveCell.EntireRow.Delete verwendest, anstelle von ActiveSheet.Rows.Delete.
  • Problem: Der Makro funktioniert nicht wie gewünscht.

    • Lösung: Überprüfe, ob die aktive Zelle korrekt ausgewählt ist. Achte darauf, dass du die UserForm schließt, nachdem du die Zeile gelöscht hast.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du manuell die Zeile der aktiven Zelle löschen:

  1. Klicke mit der rechten Maustaste auf die Zeilennummer der aktiven Zelle.
  2. Wähle "Zeile löschen" aus dem Kontextmenü.

Alternativ kannst du die Excel-Formel =WENN(B1="";"";B1) in eine andere Zelle schreiben, um den Zelleninhalt zu überprüfen, bevor du die Zeile manuell löschst.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die Zeile der aktiven Zelle mit VBA löschen kannst:

  1. Einfaches Löschen:

    Sub ZeileLoeschen()
       ActiveCell.EntireRow.Delete
    End Sub
  2. Mit Bestätigung:

    Sub ZeileLoeschenMitBestätigung()
       If MsgBox("Möchtest du die gesamte Zeile wirklich löschen?", vbYesNo) = vbYes Then
           ActiveCell.EntireRow.Delete
       End If
    End Sub
  3. Löschen in einer UserForm:

    Private Sub cmdLoeschen_Click()
       If MsgBox("Möchtest du die ganze Zeile löschen?", vbYesNo) = vbYes Then
           ActiveCell.EntireRow.Delete
           Unload Me
       End If
    End Sub

Tipps für Profis

  • Sichere deine Daten: Vor dem Löschen von Zeilen ist es ratsam, ein Backup deiner Excel-Datei zu erstellen.
  • Nutze Shortcut-Tasten: Du kannst Shift + Leertaste drücken, um die gesamte Zeile auszuwählen, und dann STRG + - drücken, um die Zeile schnell zu löschen.
  • Makro optimieren: Du kannst dein Makro so anpassen, dass es bestimmte Bedingungen überprüft, bevor es die Zeile löscht, z.B. ob die Zelle leer ist.

FAQ: Häufige Fragen

1. Wie kann ich die Zeile der aktiven Zelle ohne VBA löschen?
Du kannst mit der rechten Maustaste auf die Zeilennummer klicken und "Zeile löschen" auswählen.

2. Was passiert, wenn ich die aktive Zelle nicht auswähle?
Wenn die aktive Zelle nicht ausgewählt ist, wird das Makro möglicherweise nicht die gewünschte Zeile löschen. Stelle sicher, dass die Zelle korrekt markiert ist, bevor du das Makro ausführst.

Beliebteste Forumthreads (12 Monate)

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