bin das erste mal hier weil ich nicht weiter weiß und auch keine Idee habe wie ich mein Problem lösen kann.
Folgendes: Auf dem ersten Blatt "Leistung" werden 3 Werte errechnet.
Leistung, Produktivität neu und PUZ. Diese 3 Zelleninhalte möchte ich dass sie in dem Blatt "Archiv 2016" unter dem jeweiligen Datum des aktuellen Tages übertragen werden. Es spielt dabei keine Rolle ob es wie im Blatt "Archiv ..." das Datum nebeneinander oder untereinander steht.
04.07.2016, 14:09 (Dieser Beitrag wurde zuletzt bearbeitet: 04.07.2016, 14:09 von Rabe.)
Hi Ralf,
(01.07.2016, 13:37)heiral schrieb: würde mich tierisch über Lösungsansätze freuen.
mMn geht das nur über VBA.
Du kannst bei Buttondruck nach dem Datum aus Blatt "Leistung" im Archiv suchen lassen und dann die Werte in die entsprechende Spalte (z.B. mit "Offset", oder durch feststellen in welcher Zeile es steht und diese dann verwenden) in die Folgespalten übertragen lassen.
Ungetestet:
OptionExplicitSub Suche()
Dim RaFound As Range
Dim LoLetzte AsLongDim sSearch AsStringDim loZielzeile AsLongWith Worksheets("Archiv 2016")
sSearch = Worksheets("Leistung").Range("C2")
If sSearch = ""ThenExitSub
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
Set RaFound = .Range("A2:A" & LoLetzte).Find(sSearch, .Range("A" & LoLetzte), , xlPart, , xlNext)
IfNot RaFound IsNothingThen
loZielzeile = Rows(RaFound.Row)
'Übertragen der Ursprungszellen
.Range("B" & loZielzeile) = Worksheets("Leistung").Range("C18")
.Range("C" & loZielzeile) = Worksheets("Leistung").Range("C19")
.Range("D" & loZielzeile) = Worksheets("Leistung").Range("C20")
Else
MsgBox "Datum nicht vorhanden!"EndIfSet RaFound = NothingEndWithEndSub
Was soll geschehen, wenn die Zielzellen nicht leer sind?
Es fehlt der 29.02.2016!
So kannst Du die Mittelwertformeln einfacher machen:
Hab noch nie mit Makro gearbeitet, hab es über die Hilfefunktion von Excel versucht. Anscheinend mache ich immer etwas falsch. Es funktioniert einfach nicht.
Kann mir einer sagen wie ich den Makro in meine Tabelle einfüge.