Fehler im Makro

[RStarck]

Guten Morgen,

das Makro funktioniert zu 2/3 !

Wenn in der linken Tabelle 24 steht, dann sollen in der rechten Tabelle die dazugehörigen Personen eingetragen werden.

Vielen Dank für EURE Hilfe !!!

---

ich habe vergessen zu erwähnen, dass sich das zweite Tabellenblatt die Daten aus dem ersten zieht.

[Raoul21]

Nimm nur jede vierte Spalt.

Code:

Sub Schichten()
Dim i, i2 As Integer
   For i = 13 To 43 Step 1
       For i2 = 3 To 54 Step 4
           If Cells(i, i2).Value = "24" Then
               Cells(i, Columns.Count).End(xlToLeft).Offset(, 1) = Cells(8, i2)
           End If
       Next
   Next
End Sub

Schau, ob's funktioniert.

Gruss, Raoul

[MisterBurns]

Das ist falsch deklariert:

Code:

Dim i, i2 As Integer

Das bedeutet i = Variant, i2 = Integer. Korrekt heißt es

Code:

Dim i as Integer, i2 As Integer

Und wieso man eine Zahl als Text abfragt, werde ich nie verstehen...

Code:

If Cells(i, i2).Value = "24" Then

[RStarck]

Jungs … vielen lieben Dank - funktioniert einwandfrei !!!