Problem mit verschachtelter Schleife
30.11.2005 16:49:31
Emanuel
Ich habe ein kleines Problem mit meinem Makro, und zwar:
Ich will zwei verschiedene Tbellenblätter, zweier verschiedener Dateien miteinander vergleichen. Eine Bestimmte Spalte wird nach unten abgearbeitet und die UKZ wird als Basis verwendet.Wenn bestimmte Bedingungen erfüllt sind, soll in dem zweiten Tabelleblatt, die gesamte Zeile, welche eine gleiche UKZ enthält gelöscht werden. Mein Makro sieht so aus:
Sub Dateien_vergleichen()
Dim TB1 As Worksheet
Dim TB2 As Worksheet
Dim Zelle As Range
Dim UKZ As Integer
Set TB1 = Workbooks("Ukz-2005-VORRÄTE-GRUPPEN.xls").Worksheets("maschinelle UKZ in Gruppen")
Set TB2 = Workbooks("FZ0510-A.xls").Worksheets("FZ0510-A")
TB1.Activate
Range("g9").Select
Do While ActiveCell > 0
If ActiveCell.Offset(0, -2).Value = 3 _
Or ActiveCell.Offset(0, 2).Value = 1 _
Then
UKZ = ActiveCell.Value
TB2.Range("a2").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = UKZ Then
Selection.entire.Row.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Mein konkretes Problem: Jedes mal wenn das Makro TB2 aktivieren soll, hängt es sich auf und bringt den Fehler:"Die Select Methode des Range objectes konnte nicht ausgeführt werden. Und das ist was ich nicht verstehe, denn ich bin mir 100% sicher, das ich TB2 korrekt definiert habe. Wer kann mir helfen?