Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1048to1052
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
Inhaltsverzeichnis

Zeilen mit ähnlichem Inhalt kopieren

Zeilen mit ähnlichem Inhalt kopieren
10.02.2009 14:31:49
Lauren
Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Makro welches folgendes tut:
Aus aktivem Tabellenblatt alle Zeilen ausschneiden welche in Spalte A mit "ABC" anfangen und in neues Tabellenblatt kopieren, wobei nach ABC etwas noch folgt. Also Zelleninhalt in Spalte A ist "ABCDEFGHIJ" und ich möchte alle Zeilen Kopieren die mit ABC beginnen (also suche ABC*)
Ich bedanke mich recht hezrlich für Eure Hilfe
PS: habe mal folgendes probiert aber leider ohne erfolg es kommt die FEHLERMELDUNG Syntaxerror
Dim rngAct As Range
With Worksheets("Tabelle1")
.Cells.Clear
Range("A1:F1").AutoFilter
Field:=1, Criteria1:="=ABC*"
Set rngAct = Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
rngAct.Copy .Range("A1")
.Rows(1).Delete
End With

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit ähnlichem Inhalt kopieren
10.02.2009 15:10:00
Lauren
hat sich erledigt ;)
AW: Zeilen mit ähnlichem Inhalt kopieren
10.02.2009 15:11:00
D.Saster
Hallo,
so?

Sub yyy()
Dim rngCopy As Range, rngC As Range
For Each rngC In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If LCase(rngC) Like "abc*" Then
If rngCopy Is Nothing Then
Set rngCopy = rngC
Else
Set rngCopy = Union(rngCopy, rngC)
End If
End If
Next
If Not rngCopy Is Nothing Then
rngCopy.EntireRow.Copy Sheets("Tabelle1").Range("A1")
End If
End Sub


Gruß
Dierk

AW: Zeilen mit ähnlichem Inhalt kopieren
11.02.2009 09:27:00
Lauren
Guten Morgen Dierk,
ich habe es gelöst in dem ich mit dem Autofilter die Daten sortiert habe und dann habe ich einfach benutzerdefiniert angezeigt und mit bischen hin und her geklickere das gewünschte Ergebnis erziehlt.
habe zwar gerade deinen code hier ausprobiert aber dieser macht garnichts wenn ich es ausführe, also kein copy, kein paste...............
LG
Lauren
Anzeige

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige