Schleife?



Excel-Version: Excel 97
nach unten

Betrifft: Schleife?
von: Peter
Geschrieben am: 01.05.2002 - 14:39:03

Hallo Leute,

habe mit dem Makro Rekorder folgendes aufgenommen,


Sub suchen_finden()
'
Cells.Find(What:="100", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Selection.EntireRow.Insert
Sheets("Tabelle1").Select
Range("B2").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B2").Select
ActiveSheet.Paste

Cells.Find(What:="110", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Application.CutCopyMode = False
Selection.EntireRow.Insert
Sheets("Tabelle1").Select
Range("B3").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B8").Select
ActiveSheet.Paste

Cells.Find(What:="120", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Application.CutCopyMode = False
Selection.EntireRow.Insert
Sheets("Tabelle1").Select
Range("B4").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B15").Select
ActiveSheet.Paste
End Sub

Wie kann man hieraus eine Schleife machen?
Werte für Cells.Find(What"?"..) stehen in Tabelle1 Spalte A
Die Überschrift aus Tabelle1 Spalte B soll in Tabelle 2 Spalte B an die Stelle wo die Zeile eingefügt wird.

Wäre schön wenn jemand einen Tip hätte.

Gruß
Peter

nach oben   nach unten

Re: Schleife? -> ungetestet
von: Michael Scheffler
Geschrieben am: 02.05.2002 - 08:51:26

Hallo,

versuch's mal so:

Gruß

Micha

nach oben   nach unten

Re: Schleife? -> ungetestet
von: Peter
Geschrieben am: 02.05.2002 - 22:21:32

Hallo Micha,

danke für Deine Unterstützung bei meinem kleinen Problemchen.
Aber leider funzt es noch nicht. Bei dem Cells.Find Abschnitt
kommt der Laufzeitfehler 91: Objektvariable und With Blockvariable nicht festgelegt.
Außerdem, so wie ich dein Makro verstehe ist es natürlich nur auf die 3 Durchläufe, die ich mit dem Makro-Rekorder aufgenommen habe ausgelegt. Aber es müßte mehr auf Variabilität ausgelgt sein. Hab ich leider vergessen dazu zu schreiben.

Ich schicke dir mal meine Beispieldatei. Vielleicht wird es dann etwas klarer. Könntest Du vielleicht noch einmal helfen??

Gruß
Peter

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Schleife?"