VBA - Problem bei Ausführung
19.10.2015 08:27:04
Linke
ich versuche seit längerem meinen Code zum Laufen bekommen. Leider "hängt" sich mein Computer bereits nach kurzer Zeit auf.
Ziel meines kleinen Programms ist, dass ich eine Spalte in mehreren Tabellen (35) mit einer Spalte in einer Referenztabelle vergleiche. Stellt sich ein Vergleich als wahr heraus, dann sollen Informationen aus der Referenztabelle in die jeweilige Tabelle kopiert werden. (Siehe Skript)
Ich hoffe Ihr findet den/die Fehler.
Freundliche Grüße
Christian Linke
____________________________________________________________________________________
Sub Main()
Dim a, b As Integer
Dim vergleich1, vergleich2 As String
Dim i As Integer
Dim m As String
m = 0
For i = 1 To Sheets.Count
For a = 4 To 12
For b = 1 To 20
Sheets(1).Select
vergleich = Cells(a, 4)
Sheets(35).Select
vergleich2 = Cells(b, 14)
If vergleich = vergleich2 Then
Sheets(35).Select
Cells(b + 1, 2).Select
Selection.Copy
Sheets(i).Select
Cells(a + 1, 25).PasteSpecial
Sheets(35).Select
Cells(b + 1, 3).Select
Selection.Copy
Sheets(i).Select
Cells(a + 1, 26).PasteSpecial
Sheets(35).Select
Cells(b + 1, 5).Select
Selection.Copy
Sheets(i).Select
Cells(a + 1, 27).PasteSpecial
End If
m = m + 1
If m > 334600 Then
MsgBox "error"
GoTo limit
End If
Next b
Next a
Next i
limit:
End Sub