Inhalte einfügen über Datumseingabe
Franky
so, ich habe mit diesem Excelproblem mal wieder ein Leckerbissen für alle VBA-Freunde.
In meiner Beispiel-Tabelle: https://www.herber.de/bbs/user/75715.xlsm
soll nach dem Start des Makros eine InputBox angezeigt werden mit dem Hinweis:
("Bitte geben Sie das Datum ein")
Nach der Eingabe des Datums vergleicht das Makro in der Mastertabelle die Datumswerte
in der Spalte A.
Bei einem Treffer kopiert er die entsprechende Zeile. (z. B.: 14.07.2011 -> Bereich von B15:H15)
und fügt Sie als "Inhalte einfügen....Werte" in die Zieltabelle ein, da sich in der Mastertabelle Formeln befinden,
die ich aber der Einfachheit weggelassen habe.
Wenn ich das Manuell mache, sieht das dann so aus:
Sub Inhalte_einfügen()
' Inhalte_einfügen Makro
Range("B15:H15").Select
Selection.Copy
Sheets("Zieltabelle").Select
Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Dieses unvollständige Makro soll so erweitert werden, das eine Message-Box erscheint:
1. wenn kein Treffer gefunden wurde: "Falsches Datum! - Keine Werte wurden übertragen"
2. wenn die Werte kopiert wurden: "Die Werte wurden erfolgreich übertragen !"
Ferner sollen in der Zieltabelle alle NullWerte durch Leerzeichen ersetzt werden.
Ich bedanke mich im voraus für die schnelle Hilfe
Franky