Makro: Inhalte einfügen
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/75761.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 Zieltabelle die Datumswerte
in der Spalte A.
Bei einem Treffer kopiert er die entsprechende Zeile in der Mastertabelle (Bereich von A2:F2 und H2:M2)
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("A2:F2").Select
Selection.Copy
Sheets("Zieltabelle").Select
Range("B20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Mastertabelle").Select
Range("H2:M2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Zieltabelle").Select
Range("I20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G32").Select
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 !" -> (Ist aber nicht zwingend notwendig)
3. Wenn in der Zieltabelle schon Werte vorhanden sind: Werte überschreiben !?"
Ferner sollen in der Zieltabelle alle NullWerte durch Leerzeichen ersetzt werden.
Ich bedanke mich im voraus für die schnelle Hilfe
Franky