Fehler in Code
24.01.2019 11:39:58
Peter
verstehe gerade die Welt nicht mehr.
Ich möchte Daten aus zwei verschiedenen TB in andere Tabelle übertragen.
Den von mir erstellten Code nachstehend:
~f
Sub Übertrag_Daten_Summenbericht_gesamt_bei_Kontoneuanlage2()
Dim ws1 As Worksheet
Dim ws3 As String
Set ws1 = Worksheets("Summenbericht_gesamt")
ws3 = "Buchen_222 222 22" 'Variable einbauen
'''Anfang Übertrag aus Kontodaten !!! noch ändern auf letzte Zeile
''With ws1
'' .Range("A2").FormulaLocal = "=" & ws2 & "!E2" 'funktioniert
'' .Range("B2").FormulaLocal = "=" & ws2 & "!G2" 'funktioniert
'' .Range("C2").FormulaLocal = "=" & ws2 & "!H2" 'funktioniert
'' .Range("D2").FormulaLocal = "=" & ws2 & "!I2" 'funktioniert
''End With
'''Ende Übertrag aus Kontodaten
'Anfang Übertrag aus neuem Konto
With ws1
.Range("E2") = "='Buchen_222 222 22'!R[3]C[2]" 'funktioniert
.Range("E2") = "='Buchen_222 222 22'!G5" 'funktioniert
.Range("E2").FormulaLocal = "=" & ws3 & "!G5" 'Fehler Laufzeitfehler 1004
End With
'Ende Übertrag aus neuem Konto
End Sub
~f
Dort wo funktioniert steht wird Übertrag durchgeführt. Bei Zeile mit 'Fehler Laufzeitfehler 1004 nicht.
Keine Ahnung weshalb. Könnt ihr mir bitte helfen.
Besten Dank
Gruss
Peter