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:


Sub suchen_finden()
Dim iSchleife As Integer
Dim lngZeileQuelle As Long, lngZeileZiel As Long
For iSchleife = 100 To 120
Cells.Find(What:=Str(iSchleife), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Selection.EntireRow.Insert
Select Case iSchleife 
   Case 100 
      lngZeileQuelle = 2
      lngZeileZiel = 2
   Case 110
      lngZeileQuelle = 3
      lngZeileZiel = 8
   Case 120
      lngZeileQuelle = 4
      lngZeileZiel = 15
End Select
Sheets("Tabelle1").Select
Range("B" & Str(lngZeileQuelle)).Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B" & Str(lngZeileZiel)).Select
ActiveSheet.Paste
Next

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?"