Formelergebniss mit VBA kopieren - @ Michael migre
20.04.2016 08:38:55
Christian
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) 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ß...
Anzeige