Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen mit beliebigem Text in Spalte A löschen

Zeilen mit beliebigem Text in Spalte A löschen
28.02.2007 12:05:00
Jörg
Hallo,
zur weiteren Verarbeitung bekomme ich Listen aus der Finanzbuchhaltung, die vor der weiteren Auswertung in Excel zunächst mal "aufgeräumt" werden müssen.
Wie ich Leerzeilen lösche, habe ich über bestehende Forumsbeiträge bereits lösen können.
Es gibt aber auch Zeilen, die in Spalte A einen Texteintrag haben. Hier möchte ich die gesamte Zeile jeweils löschen. Die tatsächlichen Datensätze, haben in Spalte A immer einen numerischen Wert (Kontonummer).
Vielen Dank im voraus.
Gruß
Jörg

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit beliebigem Text in Spalte A löschen
28.02.2007 12:11:29
Heinz
Hallo Jörg
Habe ein Makro das ich auch hier im Herber Forum bekommen habe.
Makro in ein Modul kopieren.
Schaltfläche zuweisen.
M.f.G.
Heinz
Option Explicit
'Makro zum Zeilen löschen über Button

Sub Schaltfläche18_BeiKlick()
Dim i As String
i = InputBox("Welche Zeile möchten Sie löschen", "Löschvorgang")
If i = "" Then Exit Sub
Rows(CDbl(i)).Delete Shift:=xlUp
End Sub

AW: Zeilen mit beliebigem Text in Spalte A löschen
28.02.2007 12:16:22
Heinz
Hallo Jörg
Hier eine andere Version vom Zeilen löschen, auch vom Herber Forum bekommen.
Mit der linken Maustaste 3 mal auf die Spalte klicken die du löschen möchtest.
Makro in das Tabellenblatt.
M.f.G.
Heinz
'Makro zum Zeilen löschen mit Zeilen anklicken

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not OldSelection Is Nothing Then
If Target.Address = OldSelection.Address Then
Set OldSelection = Nothing
Rows(Target.Row).Delete: Exit Sub
End If
End If
If Target.Rows.Count = 1 And Target.Cells.Count = 256 Then
Set OldSelection = Target
End If
End Sub

Anzeige
AW: Zeilen mit beliebigem Text in Spalte A löschen
28.02.2007 12:16:00
Beate
Hallo,
(ich habe deine Anwort mit der Sortierung für Pivotablle gelesen. Gute Idee.)
Aber zum jetzigen Problem:
Wenn du nach Spalte A aufsteigend sortierst, hast du die Zeilen, die in A Text enthalten am Ende der Tabelle stehen und kannst sie auf einen Schlag weglöschen.
Gruß,
Beate
AW: Zeilen mit beliebigem Text in Spalte A löschen
28.02.2007 12:26:00
Jörg
Hallo Beate,
kaum zu glauben, wie einfach aber effektiv dein Vorschlag wieder einmal ist. Hat super funktioniert.
Vielen Dank auch an Heinz, für deine VBA-Vorschläge.
Gruß
Jörg

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige