case
02.10.2008 11:08:54
Peter
ich komme nicht weiter und sehe den Fehler nicht
Aufgabestellung
es gibt ein xls (SUB1)mit verschieden sheets
Die Inhalte des Sheet sollen in eine andere XLS (master) übertragen werden.
Bei der übertragung soll folgendes ablaufen
1. Wenn zelle (Master) leer dann übernehme die daten von (SUB1) in (Master)zelle a,b,c etc.
2. Wenn Zelle in (Master) belegt dann nächste (Master) Zelle gleiche Reihe
3. Wenn Zellinhalt in (Master) ist gleich mit Zellinhalt (SUB1) dann nächste Zeile von (SUB1) nach (Master)
4. Wenn Zellinhalt in (Master) ist ungleichleich mit Zellinhalt (SUB1) dann ersetze Zelle von (SUB1) mit der von (Master).
so ich bin jetzt bis Punkt 2 gekommen jedoch :-(
Vieleich erhört mich ja jemand und hilft mir. Vielen Dank im vorraus.
Grüße
Peter
Dim cell As Range
For Each cell In Range("A2:A60")
Select Case wkb.Sheets("401").Range("A2").Value
Case Is = ""
arow = 2
brow = 8
Do
wkb.Sheets("401").Cells(arow, 1).Value = awkb.Sheets(2).Cells(brow, 5).Value
wkb.Sheets("401").Cells(arow, 2).Value = awkb.Sheets(2).Cells(brow, 6).Value
wkb.Sheets("401").Cells(arow, 3).Value = awkb.Sheets(2).Cells(brow, 7).Value
wkb.Sheets("401").Cells(arow, 4).Value = awkb.Sheets(2).Cells(brow, 10).Value
arow = arow + 1
brow = brow + 1
Loop While Not IsEmpty(Cells(arow - 1, 1))
Case Is ""
wkb.Sheets("401").Activate
'Range("A100").End(xlUp).Offset(1, 0).Select
crow = Range("A100").End(xlUp).Offset(1, 0).Address
brow = 8
wkb.Sheets("401").Cells(crow, 1).Value = awkb.Sheets(2).Cells(brow, 5).Value
'Hier komme ich nicht weiter mit der Übergabe der Zellposition
wkb.Sheets("401").Cells(crow, 2).Value = awkb.Sheets(2).Cells(brow, 6).Value
wkb.Sheets("401").Cells(crow, 3).Value = awkb.Sheets(2).Cells(brow, 7).Value
wkb.Sheets("401").Cells(crow, 4).Value = awkb.Sheets(2).Cells(brow, 10).Value
Case Else
End Select
Next