Zeilen mit beliebigem Text in Spalte A löschen

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

Zeilen mit beliebigem Text in Spalte A löschen

Forumthread: Zeilen mit beliebigem Text in Spalte A löschen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zeilen mit beliebigem Text in Spalte A löschen

Forumthread: Zeilen mit beliebigem Text in Spalte A löschen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread