VBA Wert kopieren anstatt der Formel
06.08.2019 14:29:22
Raphael
Ich habe ein kleines Problem mit meiner Excel.
Ich habe 2 Sheets - Übersicht2019 und Mitarbeiter.
In sheet Mitarbeiter gebe ich einige Daten ein. Hier gibt es dann 3 Zellen die in das Sheet Übersicht übertragen werden sollen. So weit so gut.
In 2 der 3 Zellen sind allerdings formeln hinterlegt. ich habe es schon hinbekommen, die zellen zu kopieren und im sheet Übersicht2019 die Daten in der jeweils passenden Spalte in das nächste freie Feld einzufügen.
Nur halt nicht den wert. das ist aktuell so mein Problem...
hier ist das Makro. ich hoffe ihr könnt mir Helfen :)
'kopieren des Datums aus Zelle H5 in Mitarbeiter nach Übersicht2019
Sheets("Mitarbeiter").Range("H5").Copy 'Wert wird kopiert
Sheets("Übersicht2019").Select 'Sheet wird ausgewählt
Dim a
a = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1 'a ist die erste leere Zelle in Spalte B
If Sheets("Übersicht2019").Range("B1") = "" Then b = 1
Sheets("Übersicht2019").Range("B" & a).Select
Selection.Paste 'wählt die leere Zelle aus fügt es ein
Application.CutCopyMode = False 'Kopierspeicher leeren
Application.ScreenUpdating = True 'Aktualisierung einschalten
Viele Grüße,
Raphael