AW: Korrektur
03.11.2009 17:18:33
Oberschlumpf
Hi Michael
Hab nur n paar Min Zeit.
Warum die 2003er-Version keine Rahmen/Zellhintergrund-Fornatierung speichert, bzw diese bei mir nicht anzeigt, weiß ich leider auch nicht.
Aber ob mit oder ohne Farbe, das ist egal, da Excel Farbe nicht als Zellinhalt interpretiert.
Versuch mal das
Tausche diesen Code
For liVor = 3 To lShVor.Cells(Rows.Count, 2).End(xlUp).Row
For liPreis = 2 To lShPreis.Cells(Rows.Count, 1).End(xlUp).Row
If lShVor.Range("A" & liVor).Value = lShPreis.Range("A" & liPreis).Value _
Then
lboTreffer = True
Exit For
End If
Next
If lboTreffer = True Then
lboTreffer = False
Else
liNext = lShPreis.Cells(Rows.Count, 1).End(xlUp).Row + 1
lShPreis.Range("A" & liNext).Value = lShVor.Range("A" & liVor).Value
lShPreis.Range("B" & liNext).Value = lShVor.Range("C" & liVor).Value
lShPreis.Range("C" & liNext).Value = lShVor.Range("D" & liVor).Value
lShPreis.Range("D" & liNext).Value = lShVor.Range("E" & liVor).Value
End If
Next
aus gegen diesen:
For liVor = 3 To lShVor.Cells(Rows.Count, 2).End(xlUp).Row
If lShVor.Range("B" & liVor).Value "" Then
For liPreis = 2 To lShPreis.Cells(Rows.Count, 1).End(xlUp).Row
If lShVor.Range("A" & liVor).Value = lShPreis.Range("A" & liPreis).Value _
Then
lboTreffer = True
Exit For
End If
Next
If lboTreffer = True Then
lboTreffer = False
Else
liNext = lShPreis.Cells(Rows.Count, 1).End(xlUp).Row + 1
lShPreis.Range("A" & liNext).Value = lShVor.Range("A" & liVor).Value
lShPreis.Range("B" & liNext).Value = lShVor.Range("C" & liVor).Value
lShPreis.Range("C" & liNext).Value = lShVor.Range("D" & liVor).Value
lShPreis.Range("D" & liNext).Value = lShVor.Range("E" & liVor).Value
End If
End If
Next
Mit dem neuen Code wird jetzt nicht nur bis zur letzten benutzten Zeile in Spalte B der Vorlage gesucht, sondern es wird zusätzlich nur so lange gesucht, bis in Spalte B eine Zelle OHNE Inhalt gefunden wird.
Und wenn das auch nix hilft...tja...dann musst du uns genau DIE Datei zeigen, in der der Fehler auftritt.
Und wenn es sich auch noch "nur" um die Testdatei handelt, die auch ich bearbeite, dann liegt es wirklich an XL 2007 und XL XP - aber DAS glaube ich eigtl nicht.
Und ich nehme meinen "Schuss" aus der letzten Message ein wenig zurück.
Ja, du hast Recht...wenn man etwas nicht kennt, dann kann man auch Fehler machen...kommt leider vor, dass ich das hin und wieder vergesse...sry
Ciao
Thorsten