Supportnet / Forum / Tabellenkalkulation

Hallo! Kann mir bitte jeamnd helfen! Habe folgdens Problem: Möchte das durch ein Knopfdruck alle von mir gewünschten DAten in eine Tabelle gesammelt werden. Soweit auch ganz gut. Nur koppiert mir mein Muodul statt den Wert die Formel. Was muss ich tun, damit das nciht so ist. Hier mal das Modul: Sub zusammenfassen() Dim monat As Integer, maxrow As Long, currow As Long Application.ScreenUpdating = False Sheets("TGB-Statistik").Select Range("A2:K800").ClearContents For monat = 1 To 1 Sheets("TGB-Statistik").Select currow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("TB2006").Select maxrow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row ´Daten von Spalte B(Datum) nach A (Monat) Sheets("TB2006").Range("B5:B" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("A" & CStr(currow)) ´Daten von Spalte G(Name) nach C (Name) Sheets("TB2006").Range("G5:G" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("C" & CStr(currow)) ´Daten von Spalte T(Abk TGB) nach E (Dienstart) Sheets("TB2006").Range("T5:T" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("E" & CStr(currow)) ´Daten von Spalte H(Bereich) nach F (Bezirk) Sheets("TB2006").Range("H5:H" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("F" & CStr(currow)) ´Daten von Spalte F(Ort) nach G (Ort) Sheets("TB2006").Range("F5:F" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("G" & CStr(currow)) ´Daten von Spalte C(Anz) nach G (Anz d. Dienste) Sheets("TB2006").Range("C5:C" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("H" & CStr(currow)) ´Daten von Spalte D(Zeit) nach I (Zeit) Sheets("TB2006").Range("D5:D" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("I" & CStr(currow)) ´Daten von Spalte I(Bemerkung) nach K(Bemerkungen) Sheets("TB2006").Range("I5:I" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("K" & CStr(currow)) ´Daten von Spalte E(Art) nach M (Dienstart FULL) Sheets("TB2006").Range("E5:E" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("M" & CStr(currow)) Next Sheets("TGB-Statistik").Select Application.ScreenUpdating = True End Sub ______________________ Genau genommen geht es nur um eine Zeile. und zwar die: ´Daten von Spalte T(Abk TGB) nach E (Dienstart) Sheets("TB2006").Range("T5:T" & CStr(maxrow)).Copy _ Destination:=Sheets("TGB-Statistik").Range("E" & CStr(currow)) VIELEN DANK schon mal im voraus!

Hallo MiMa1979,

wenn du nur die Werte kopieren möchtest, musst du mit

PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

arbeiten.

´Daten von Spalte T(Abk TGB) nach E (Dienstart)
Sheets("TB2006").Range("T5:T" & CStr(maxrow)).Copy
Sheets("TGB-Statistik").Range("E" & CStr(currow)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

MfG

JöKe

DANKE

Klappt prima

• beim kopieren einer zelle wird die formel kopiert und nicht deren wert
• Messwerte in eine Formel einfügen
• Problem mit Wenn-Formel
• Excel: Formel wird nicht berechnet sondern als Formel angezeigt
• sverweis mit vba