Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit VBA filtern

Mit VBA filtern
27.02.2018 09:54:29
Lesepeter
Hallo,
ich bekomme es leider nicht hin mit VBA die Spalte A nach ";" zu filtern. Habt ihr eine Idee was das Problem ist?
Hier mein Code: 

Sub D_REF_spliten()
' D_REF_spliten Makro
'Ersetze Absatz durch Semikolon und Leerzeichen
Columns("A:A").Select
Selection.Replace What:="" & Chr(10) & "", Replacement:="; ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Setze Filter auf Semikolon
Dim Bereich As Range
Set Bereich = Basisausleitung.UsedRange         'Bereich wird nicht korrekt gefiltert
Bereich.AutoFilter field:=2, Criteria1:=";"
'Gefilterten Bereich auswählen und in ein neuen Reiter kopieren. Reiter umbennenen.
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
ActiveSheet.Name = "REF_Hilfsblatt"
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit VBA filtern
27.02.2018 10:02:07
Hajo_Zi
Makrorecorder ist nicht schlecht.
Field:=2, Criteria1:="=;"

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Mit VBA filtern
27.02.2018 14:48:09
Lesepeter
Leider funktioniert es nicht. Ich erhalte folgenden Fehler bei:
Set Bereich = Basisausleitung.UsedRange
Laufzeitfehler '424':
Objekt erfolderlich
Anzeige
AW: Mit VBA filtern
27.02.2018 14:59:00
Werner
Hallo,
wer soll den bitte mit einer einzigen Codezeile etwas anfangen?
Ich vermute mal, dass du da dein Tabellenblatt ansprechen willst und das Tabellenblatt hat den Namen "Basisausleitung"
Set Bereich = Worksheets("Basisausleitung").UsedRange
Das ist aber die Glaskugel zu Rate gezogen.
Gruß Werner
AW: Mit VBA filtern
27.02.2018 15:00:10
Hajo_Zi
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Gruß Hajo
Anzeige
AW: Mit VBA filtern
27.02.2018 15:16:37
Lesepeter
Sorry, denke beim nächsten mal daran, dass ich die Originaldatei anhänge.
Ich konnte eben das Problem selbst wie gefolgt lösen:
Sub D_REF_spliten()
' D_REF_spliten Makro
'Ersetze Absatz durch Semikolon und Leerzeichen
Columns("A:A").Select
Selection.Replace What:="" & Chr(10) & "", Replacement:="; ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Zähle Zeilen
Dim lRow As Integer
lRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'Setze Filter auf Semikolon
ActiveSheet.Range("A1:A" & lRow).AutoFilter Field:=1, Criteria1:="=*;*", _
Operator:=xlAnd
'Gefilterten Bereich auswählen und in ein neuen Reiter kopieren. Reiter umbennenen.
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
ActiveSheet.Name = "REF_Hilfsblatt"
'Autofilter erstellen
Application.CutCopyMode = False
Selection.AutoFilter
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige