Hallo petaod und die anderen cracks,
hoffe mit diesem Beitrag mein suchen und kopieren zu erschlagen.
Wie erweitere ich denn den code, wenn ich bei einem Zelle = Nothing Ergebnis dieses an der richtigen
fortlaufenden Stelle in wks2 als z.B. leere Zelle oder einfach "0" eingeben möchte. Bisher wird das Zelle=
Nothing Ergebnis einfach ignoriert und mit dem nächsten erfolgreichen Suchbegriff dessen Wert in
wks2 fortgeschrieben.
Vielen Dank und ja, Differentialgleichungen sind wirklich mein Fachgebiet gewesen
VBA Begins
For i = 0 To UBound(Suchen) 'BOUNDS BEACHTEN!
Set Zelle = wks1.Range("A:A").Find(What:=Suchen(i), LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox ("Suchbegriff '" & Suchen(i) & "' nicht gefunden")
Else
Offset = AnimalCount(Suchen(i), AnimalColl)
With wks2
If IsEmpty(.Cells(Zeile, 1)) Then
.Cells(Zeile, 1) = Zelle.Offset(0, 1).Value
Else
.Cells(Zeile, .Columns.Count).End(xlToLeft).Offset(0, 1) = Zelle.Offset(0, Offset).Value
hoffe mit diesem Beitrag mein suchen und kopieren zu erschlagen.
Wie erweitere ich denn den code, wenn ich bei einem Zelle = Nothing Ergebnis dieses an der richtigen
fortlaufenden Stelle in wks2 als z.B. leere Zelle oder einfach "0" eingeben möchte. Bisher wird das Zelle=
Nothing Ergebnis einfach ignoriert und mit dem nächsten erfolgreichen Suchbegriff dessen Wert in
wks2 fortgeschrieben.
Vielen Dank und ja, Differentialgleichungen sind wirklich mein Fachgebiet gewesen
VBA Begins
For i = 0 To UBound(Suchen) 'BOUNDS BEACHTEN!
Set Zelle = wks1.Range("A:A").Find(What:=Suchen(i), LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox ("Suchbegriff '" & Suchen(i) & "' nicht gefunden")
Else
Offset = AnimalCount(Suchen(i), AnimalColl)
With wks2
If IsEmpty(.Cells(Zeile, 1)) Then
.Cells(Zeile, 1) = Zelle.Offset(0, 1).Value
Else
.Cells(Zeile, .Columns.Count).End(xlToLeft).Offset(0, 1) = Zelle.Offset(0, Offset).Value