Text in Tabelle

[schauan]

Hallöchen,

nimm den Textfilter, Beginnt mit 00, lösche die Zeilen
nimm den Textfilter, Größer als 0, lösche die Zeilen

[Kuwer]

Hallo,

hier auch noch eine Variante per VBA:

Drücke die Tastenkombination Alt und F11, dann Alt e m.
In das rechte Codefenster fügst Du folgenden Code ein:

Sub ZeitangabenEntfernen()
  Application.ScreenUpdating = False
  Range("A:A").Replace "*-->*", "#N/A", xlPart
  Range("A:A").SpecialCells(xlCellTypeConstants, 16).Delete xlUp
  Application.ScreenUpdating = True
End Sub

Klicke mit der Maus in den Code und drücke anschließend die Taste F5.
Nach einiger Zeit sollten die Zeitangaben weg sein.

Gruß Uwe

[Werner.M]

Hallo,

hier noch eine Version per Makro mit RemoveDuplicates.

Code:

Public Sub Zeit_weg()
Dim loLetzte As Long

Application.ScreenUpdating = False

With Worksheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range(.Cells(2, "B"), .Cells(loLetzte, "B")).FormulaLocal = _
    "=WENNFEHLER(WENN(FINDEN(""-->"";A2);0;ZEILE());ZEILE())"
    .Range(.Cells(2, "A"), .Cells(loLetzte, "A")).Value = _
    .Range(.Cells(2, "A"), .Cells(loLetzte, "A")).Value
    .Cells(1, "B") = 0
    .Range(.Cells(1, "A"), .Cells(loLetzte, "B")).RemoveDuplicates Columns:=2, Header:=xlNo
    .Columns("B").ClearContents
End With
End Sub

Wobei deine Daten nicht konsistent sind. Da gibt es Datensätze bei denen alles in einer Zelle steht.

Gruß Werner

[frani360]

hi

vielen dank es hat geklappt.
jetzt muss ich die zahlen noch über den text weg bekommen 1-609

wenn ich die zahl einzelt einsetze

Range("A:A").Replace "*2*", "#N/A", xlPart

dann geht das , aber wie kann ich alle auf einmal entfernen?

[steve1da]

Hola,

Wo packe ich die Formel hin?

Na in die erste Zelle wo du den ersten Text erwartest. Dann ziehst du die Formel nach rechts.

Gruß,
steve1da 

[Kuwer]

Hallo,

Sub ZeitangabenEntfernen()
  Application.ScreenUpdating = False
  Range("A:A").Replace "*-->*", "#N/A", xlPart
  With Range("A:A").SpecialCells(xlCellTypeConstants, 16)
    .Offset(-1).Delete xlUp
    .Delete xlUp
  End With
  Application.ScreenUpdating = True
End Sub

Gruß Uwe

[frani360]

hi
soweit klappt alles aber wie gebe ich an das alle alle zellen wo noch zahlen drin stehen auch löschen soll, es sind von 1 bis 1170

[steve1da]

Hola,

da es hier mehrere Vorschläge gibt solltest du schon sagen zu welchem du noch eine Nachfrage hast.

Gruß,
steve1da

[schauan]

Hallöchen,

bei der Filtermethode bleiben einige Zellen übrig, wo alles drin steht. Die müsstest Du manuell nachbearbeiten.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A
170	Es gab dieses tolle Foto,
171	wenn ich mich richtig erinnere,
172	war es eine Aufnahme des Cockpits.
173	Sie zeigte einen enormen Helm ,
174	in dem sich der Jet und zwei
175	weitere Jets dahinter spiegelten .
176	Ich meinte:
177	Das ist <i>Star Wars</i> auf der Erde. 107 00:05:25,826 --> 00:05:27,369 Das sollten wir umsetzen ."
178	U nd Don und ich ,
179	der damals mein Partner war,
180	standen damals

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

Wenn Du dabei statt der Zeilen nur Zellen löschst, kommt der sonst übliche Kontexteintrag für Zellen löschen mit der Abfrage nach der Verschieberichtung nicht. Du kannst sie mit ENTF löschen und es bleiben leere Zellen zwischen den übrigen Texten. Die bekämst Du ggf. ohne Makro durch Sortieren weg. Dazu wäre eine Hilfsspalte von Vorteil wo Du z.B. die Zeilennummer per Formel einträgst wenn daneben eine gefüllte Zelle ist. Dann nach der Hilfsspalte sortieren.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	1
2
3	Hallo, hier ist Tony Scott.	3
4	Ich bin der Regisseur von <i>Top Gun.</i>	4
5
6
7	Mein erster Film war <i>The Hunger.	7
8	Top Gun</i> war mein zweiter Film .	8
9
10
11	Wir drehten ihn '85	11
12	und er wurde '86 veröffentlicht.	12
13
14
15	Ich hatte eben <i>The Hunger</i> gedreht,	15
16

Zelle	Formel
B3	=WENN(A3<>"";ZEILE();"")
B4	=WENN(A4<>"";ZEILE();"")
B5	=WENN(A5<>"";ZEILE();"")
B6	=WENN(A6<>"";ZEILE();"")
B7	=WENN(A7<>"";ZEILE();"")
B8	=WENN(A8<>"";ZEILE();"")
B9	=WENN(A9<>"";ZEILE();"")
B10	=WENN(A10<>"";ZEILE();"")
B11	=WENN(A11<>"";ZEILE();"")
B12	=WENN(A12<>"";ZEILE();"")
B13	=WENN(A13<>"";ZEILE();"")
B14	=WENN(A14<>"";ZEILE();"")
B15	=WENN(A15<>"";ZEILE();"")
B16	=WENN(A16<>"";ZEILE();"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg