AW: runde Geburtstage in andere Tabelle kopieren
13.12.2012 12:18:23
Mario
Hallo Eugen,
habe mich zufrüh gefreud funktioniert nícht habe date die daten hinein kopiert, Zeigt aber in der Tabelle versenden nur die 4 spalten der rest nicht.
was habe ich falsch gemacht
Public Sub runde_sache()
Dim i As Long, x As Long
For i = 5 To 1000000
If Sheets(4).Cells(i, 4).Value = "" Then Exit For
If Sheets(4).Cells(i, 4).Value Mod 10 = 0 Then
For x = 1 To 100000
If Sheets(2).Cells(x, 4).Value = "" Then
Sheets(2).Cells(x, 1).Value = Sheets(4).Cells(i, 1).Value
Sheets(2).Cells(x, 2).Value = Sheets(4).Cells(i, 2).Value
Sheets(2).Cells(x, 3).Value = Sheets(4).Cells(i, 3).Value
Sheets(2).Cells(x, 4).Value = Sheets(4).Cells(i, 4).Value
Sheets(2).Cells(x, 5).Value = Sheets(4).Cells(i, 13).Value
Sheets(2).Cells(x, 6).Value = Sheets(4).Cells(i, 14).Value
Sheets(2).Cells(x, 7).Value = Sheets(4).Cells(i, 15).Value
Sheets(2).Cells(x, 8).Value = Sheets(4).Cells(i, 16).Value
Exit For
End If
Next x
End If
Next i
End Sub
bitte noch mal um Hilfe.
Gruß Mario