Clever-Excel-Forum

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.

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

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

Jungs … vielen lieben Dank - funktioniert einwandfrei !!!

RStarck

Raoul21

MisterBurns

RStarck