AW: Daten auslesen
18.12.2006 19:11:49
Ulf
Hallo pitti
ich weiß zwar immer noch nicht ob ich dich richtig verstanden habe, aber versuch mal das.
Sub übertragen()
Dim i As Integer
Dim x As Integer
Dim M As Integer
Dim Schicht(20) As String
x = 1
With Sheets(1)
Sheets(2).Activate
Sheets(2).Range(Cells(2, 1), Cells(100, 5)) = ""
For M = 1 To 2
For i = 2 To .Cells(65536, 1).End(xlUp).Row
If .Cells(i, M + 1) = "SO" Or _
.Cells(i, M + 1) = "SAS" Or _
.Cells(i, M + 1) = "SA" Or _
.Cells(i, M + 1) = "SSP" Or _
.Cells(i, M + 1) = "SP" Or _
.Cells(i, M + 1) = "FFS" Then
x = Sheets(2).Cells(65536, M * 3 - 2).End(xlUp).Row + 1
Sheets(2).Cells(x, M * 3 - 2) = .Cells(i, 1).Value
Sheets(2).Cells(x, M * 3 - 1) = .Cells(i, M + 1).Value
End If
Next i
Next M
End With
End Sub
melde dich mal
mfg Ulf