Supportnet / Forum / Tabellenkalkulation
Filtern von Asterisken im Excel (*)
Frage
Hallo zusammen,
ich habe ein Exceldokument mit zwei Tabellenblättern (2004 und Dialoge). Aus dem ersten Tabellenblatt möchte ich sämtliche Datensätze ins zweite Tabellenblatt kopieren, die ein Sternchen (*) enthalten. Mit anderen Suchbegriffen (Wörtern) funktioniert folgendes Makro:
Option Explicit
Sub suchen_kopieren()
Application.ScreenUpdating = False
Dim Begriff As String, gefunden As Variant, firstAddress As Variant, _
Zeile As Long
Begriff = InputBox("suche nach:", "Suchbegriff")
If Begriff = "" Then Exit Sub
With Sheets("2004").Cells
Set gefunden = .Find(Begriff, LookIn:=xlValues)
If Not gefunden Is Nothing Then
firstAddress = gefunden.Address
Do
Zeile = gefunden.Row
Rows(Zeile).Copy
Sheets("Dialoge").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
Set gefunden = .FindNext(gefunden)
Loop While Not gefunden Is Nothing And gefunden.Address <> firstAddress
End If
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Mit dem Sternchen jedoch leider nicht. Hat jemand eine Ahnung, wie man das Makro umschreiben müsste, damit man die mit einem Sternchen gekennzeichneten Datensätze ins zweite Tabellenblatt kopieren kann?
Oder gibt es eine andere Möglichkeit?
Vielen Dank schon mal!
Antwort 1 von Aliba
Hi,
also wie Du das Makro umschreiben musst, weiss ich nicht, aber wenn Du in die Inputbox vor dem Sternchen eine Tilde eingibst, sieht dann so aus:
~*
sollte das funzen.
CU Aliba
also wie Du das Makro umschreiben musst, weiss ich nicht, aber wenn Du in die Inputbox vor dem Sternchen eine Tilde eingibst, sieht dann so aus:
~*
sollte das funzen.
CU Aliba
Antwort 2 von stern*chen
super, funktioniert! danke!
Antwort 3 von stern*chen
Kann mir jemand noch sagen, wie dasselbe mit einem Doppelpunkt funktioniert?
~:
geht nicht. Hat jemand eine Lösung?
~:
geht nicht. Hat jemand eine Lösung?