Hallo,
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.
Hat von euch einer eine Idee ?
Würde mich tierisch über Lösungsansätze freuen.
Danke und liebe Grüße
Ralf
off topic...
Hallo Ralf, bitte befasse dich mal mit der Funktion SUMME()
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:
Option Explicit
Sub Suche()
Dim RaFound As Range
Dim LoLetzte As Long
Dim sSearch As String
Dim loZielzeile As Long
With Worksheets("Archiv 2016")
sSearch = Worksheets("Leistung").Range("C2")
If sSearch = "" Then Exit Sub
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
Set RaFound = .Range("A2:A" & LoLetzte).Find(sSearch, .Range("A" & LoLetzte), , xlPart, , xlNext)
If Not RaFound Is Nothing Then
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!"
End If
Set RaFound = Nothing
End With
End Sub
Was soll geschehen, wenn die Zielzellen nicht leer sind?
Es fehlt der 29.02.2016!
So kannst Du die Mittelwertformeln einfacher machen:
Archiv 2016 | A | B | C | D |
| 431 | 31.12.2016 | | | |
| 432 | | | | |
| 433 | | | | |
| 434 | | | | |
| 435 | | | | |
| 436 | | Leistung | Produktivität "Neu" | PUZ |
| 437 | 2016 | | | |
| verwendete Formeln | |
| Zelle | Formel | Bereich | N/A |
| B433: D433 | =WENNFEHLER(TEILERGEBNIS(1;B401:B431);"") | | |
| B437: D437 | =WENNFEHLER(TEILERGEBNIS(1;B5:B433);"") | | |
| Excel-Inn.de |
| Hajo-Excel.de |
| XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
| Add-In-Version 19.08 einschl. 64 Bit |
ok, danke
ich versuche mein Glück.
bin jetzt erst mal eine Woche in Urlaub.
Danach gebe ich dann Rückmeldung.
Danke und Gruß
Ralf
Hallo Leute,
ich bekomme es nicht hin!
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.
Danke und Gruß
Ralf