Hallo zusammen,
ich brauche dringend eure Hilfe, bin ein absoluter VBA Anfänger. Es geht darum, dass bei mir jedes mal, wenn ich die nächste neue Zelle suche in VBA, in der Tabelle trotzdem ein alter, NICHT leerer Wert überschrieben wird.
Ich möchte den Wert "tTeilenummer" in den Excel Tabellen "ergebnisse informieren" und "ergebnisse reklamieren" bei jedem neuer Transaktion neu übermittelt haben. Die alten Werte sollen NICHT überschrieben werden. Deshalb soll die nächste leere Zelle gesucht werden in der Spalte A und die der Wert aus dem Ergebnis tTeilenummer in die Listen immer in einer freien Zelle eingetragen werden.Was mache ich falsch? Bin dankbar für jede Hilfe!
If d > 0.6 Then Msgbox " Empfehlung: Offizielle Lieferantenreklamation und Retoure" Else Msgbox "Empfehlung: Information an Lieferant und Verschrotten"
If d < 0.6 Then Worksheets("Ergebnisse informieren").Cells(Range("A1:A1900").End(xlDown).Row + 1) = tTeilenummer
If d > 0.6 Then Worksheets("Ergebnisse reklamieren").Cells(Range("A1:A1900").End(xlDown).Row + 1) = tTeilenummer
Beste Grüße
|