wie kann ich per VBA in einen bestimmten Bereich "B106:I115" alle Zellen löschen in denen ein Text vorkommt?
Zahlen sollen erhalten bleiben und anschließend in Spalte B neben den Text in Spalte A auftauchen.
Danke für die Hilfe
Gruß Dieter
Function Zahl(STR As Variant) As Variant
Dim leng As Variant, Zähler As Variant, Zahlen As Variant
leng = Len(STR)
For Zähler = 1 To leng
If Mid(STR, Zähler, 1) >= "0" And Mid(STR, Zähler, 1)
Sub LöscheZelle()
Dim Bereich As Range, Zähler As Variant, Zahlen As Variant
For Each Bereich In Range("B106:I115") 'Bereich Zahlen mit Buchstaben
For Zähler = 1 To Len(Bereich)
If LCase(Mid(Bereich, Zähler, 1)) >= "a" And LCase(Mid(Bereich, Zähler, 1))
Gruß
Tino
Function Zahl(STR As Variant) As Variant
Dim leng As Variant, Zähler As Variant, Zahlen As Variant
leng = Len(STR)
For Zähler = 1 To leng
If Mid(STR, Zähler, 1) >= "0" And Mid(STR, Zähler, 1)
Sub LöscheZelle()
Dim Bereich As Range, Zähler As Variant, Zahlen As Variant
For Each Bereich In Range("B106:I115") 'Aufgabenbereich
For Zähler = 1 To Len(Bereich)
If LCase(Mid(Bereich, Zähler, 1)) >= "a" And LCase(Mid(Bereich, Zähler, 1))
Gruß
Tino
range("B106:I115").specialcells(xlcelltypeconstants, 2).delete shift:=xltoleft
du kannst es auch von Hand ohne Makro genaus machen:
- Bereich markieren
- BEARBEITEN - GEHE ZU - INHALTE - KONSTANTEN - TEXTE anklicken
- BEARBEITEN -ZELLEN LÖSCHEN - NACH LINKS klicken
Gruß, Daniel