Michael hatte mir vor ca. einer Woche sehr mit einem Code im VBA weitergeholfen.
Jetzt brauche ich aber nochmal kurz Eure Hilfe, da ich den Code ein klein wenig ändern muss. Hier erstmal er Code:
Sub Chris()
' ggf. anpassen ab hier
Const QuellBlatt As String = "ESS"
Const QuellZelle As String = "FL19"
Const ZielBlatt As String = "Tagesfracht"
Const Von As String = "C6"
Const Bis As String = "C19"
' ab hier keine Anpassung erforderlich
Dim ZielBereich As Range
With Worksheets(ZielBlatt)
Set ZielBereich = .Range(.Range(Von), .Range(Bis))
If WorksheetFunction.CountA(ZielBereich)
Im Moment kopiert dieser Code einen Zellwert in ein anderes Tabellenblatt, in einen bestimmten Bereich, in die erste leere Zelle.Ich hätte jetzt gerne, dass der Code weiterhin im gleichen Zellbereich die erste leere Zelle sucht, der kopierten Zellwert aber in eine Zelle 3 spalten links von der gefunden leeren Zelle in der gleichen Zellzeile einfügt. Also, wenn z. B. der Code oben als Ergebnis eine leere Zelle in "F9" findet, dann soll der kopierte Wert in Zelle "C9" eingefügt werden. ;-)
Ich habe schon viel versucht, bekomme den Code aber nicht richtig angepasst...
Danke im Voraus & Gruß...