Excel Makro komplette Zeile markieren/kopieren

Forumthread: Excel Makro komplette Zeile markieren/kopieren

23.08.2005 15:43:48

Hallo, habe das unten aufgeführte Makro geschrieben und habe folgendes Problem:
1. Die Suche im Sheet Ausgangstabelle funktioniert einwandfrei, jedoch möchte ich, dass nicht nur die gefundene Zelle "test" markiert und anschließend kopiert wird, sondern die komplette Zeile, in der "test" vorkommt.
2. Wie kann ich anschließend nicht benötigte Spalten rauslöschen, mit welchem Befehl?
_______________________________________________________________________________


Sub ProvisionsRechner()
'Provision xxxxx'Erstellt von xxxxxxx am 19.08.2005
Sheets("Ausgangstabelle").Select
Cells.Find(What:="test", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.Copy
Sheets("AusT").Select
ActiveSheet.Paste
End Sub

______________________________________________________________________________

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel Makro komplette Zeile markieren/kopieren

23.08.2005 16:04:32

IngGi

Hallo MS Admin,
das Ganze mal aufs notwendige gekürzt:


Sheets("Ausgangstabelle").Cells.Find(What:="test", After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).EntireRow.Copy Sheets("AusT").Range("A1")

Den Range-Bereich in AusT musst du noch anpassen. Löschen von Zellen oder Zellbereichen geht mit


Range("blabla").Delete Shift:=xlUp (oder eben xlToLeft) für einzelne Zellen oder mit
Range("blabla").EntireColumn für die ganze Spalte

Gruß Ingolf

AW: Excel Makro komplette Zeile markieren/kopieren

23.08.2005 16:32:34

Habe die Änderungen eingeführt. Leider ensteht jetzt ein neues Problem.
Wenn ich das Makro mahrfach aufrufe geht es nicht wie zuvor von einem gefundenen Objekt "test" zum nächsten. Wie kann ich eine schleife einfügen, so dass er alle Funde Text in mein zweites sheet übernimmt?
Danke
______________________________________________________________________________________
Sheets("Ausgangstabelle").Select
Cells.Find(What:="test", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).EntireRow.Copy
Sheets("AusT").Select
ActiveSheet.Paste

AW: Excel Makro komplette Zeile markieren/kopieren

23.08.2005 16:47:24

IngGi

Hallo MS Admin,
so vielleicht?


Sub kopieren()
Dim rng As Range
Set rng = Sheets("Ausgangstabelle").Cells.Find(what:="test")
rng.EntireRow.Copy Sheets("AusT").Range("A65536").End(xlUp).Offset(1, 0)
Do
Set rng = Sheets("Ausgangstabelle").Cells.FindNext
If Not rng Is Nothing Then
Sheets("Ausgangstabelle").Cells.FindNext.Copy _
Sheets("AusT").Range("A65536").End(xlUp).Offset(1, 0)
End If
Loop Until rng Is Nothing
End Sub

Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

Excel Makro komplette Zeile markieren/kopieren

Forumthread: Excel Makro komplette Zeile markieren/kopieren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Excel Makro komplette Zeile markieren/kopieren

Forumthread: Excel Makro komplette Zeile markieren/kopieren

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread