AW: Feld auslesen
23.02.2004 16:46:09
Student2000
Hallo, habe jetzt fplgenden Code:
Sub einfügen()
Dim Zelle, Spalte, ZelleUF, SpalteUF, i As Double
LetzteZelle = Worksheets("UniFrance").Cells.Find(What:="*", _
After:=Worksheets("UniFrance").Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LetzteZelle = LetzteZelle + 1
MsgBox "LetzteZelle: " & LetzteZelle
i = 1
Zelle = 1
Spalte = 1
ZelleUF = 1
SpalteUF = 7
Do While i < 10 'LetzteZelle
If Sheets("UniFrance").Cells(ZelleUF, SpalteUF).Value = "*FRANCE*" Then
Sheets("UNIFRANCES").Cells(Zelle, Spalte).Value = Sheets("UniFrance").Cells(ZelleUF, SpalteUF).Value
Sheets("UNIFRANCES").Cells(Zelle, Spalte + 1).Value = Sheets("UniFrance").Cells(ZelleUF + 9, SpalteUF + 1).Value
Sheets("UNIFRANCES").Cells(Zelle, Spalte + 2).Value = Sheets("UniFrance").Cells(ZelleUF + 11, SpalteUF + 2).Value
Sheets("UNIFRANCES").Cells(Zelle, Spalte + 3).Value = Sheets("UniFrance").Cells(ZelleUF + 12, SpalteUF + 2).Value
Sheets("UNIFRANCES").Cells(Zelle, Spalte + 4).Value = Sheets("UniFrance").Cells(ZelleUF + 13, SpalteUF + 1).Value
Zelle = Zelle + 1
ZelleUF = ZelleUF + 1
Else
ZelleUF = ZelleUF + 1
End If
i = i + 1
Loop
End Sub
Aber irgendwie passiert nicht das was passieren soll.
mfg thomas