Tweet
Hallo ihr VBA Experte,
ich habe ein kleines Problem bei meinem Code und zwar : Der code löscht die vorhandenen Daten in Tabelle "XXX L" und kopiert neue darauf.(der überschreibt die alten). d.h. in Code kommt der niemals zu der ELSE-Anweisung, weil er A2 immer vorher leer MACHT
. Versuche seit Tagen diesen Fehler zu beheben aber keinen Erfolg Sad . Hat einer Ahnung? DANKE
Hier ist der Code
Public Sub transferdata()
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim rngTarget As Range
Dim HeutigesDatum_nd As Date
Dim AktuellerMonat_nd, AktuellesJahr_nd As Integer
Dim c, ZusammensetzungDateiname_nd, f As String
Dim Dateiname_nd As String
HeutigesDatum_nd = Date - 1
AktuellerMonat_nd = Month(HeutigesDatum_nd)
AktuellesJahr_nd = Year(HeutigesDatum_nd)
Dateiname_nd = AktuellerMonat_nd & "-" & AktuellesJahr_nd
Set wksSource = ActiveSheet
Workbooks.Open Filename:="c:\users\XXXXX\desktop\" & Dateiname_nd & " XXXXXX.xlsx"
Set wksTarget = Worksheets("XXX L")
If IsEmpty(wksTarget.Range("A2")) Then
Msgbox "A2 ist leer" (Nur für Test-Zwecke)
' Man bekommt immer diese Meldung auch wenn vor eine Minute die Daten in A2 gefüllt wurden
Set rngTarget = wksTarget.Range("A2")
Else
Set rngTarget = wksTarget.Cells(10, 11).End(xlDown).Row + 1
End If
Msgbox "A2 ist nicht leer"
wksSource.Range("A2:H10").Copy rngTarget
End Sub
-----------
Ich hoffe dass einer mir helfen kann...
lg
ich habe ein kleines Problem bei meinem Code und zwar : Der code löscht die vorhandenen Daten in Tabelle "XXX L" und kopiert neue darauf.(der überschreibt die alten). d.h. in Code kommt der niemals zu der ELSE-Anweisung, weil er A2 immer vorher leer MACHT
. Versuche seit Tagen diesen Fehler zu beheben aber keinen Erfolg Sad . Hat einer Ahnung? DANKEHier ist der Code
Public Sub transferdata()
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim rngTarget As Range
Dim HeutigesDatum_nd As Date
Dim AktuellerMonat_nd, AktuellesJahr_nd As Integer
Dim c, ZusammensetzungDateiname_nd, f As String
Dim Dateiname_nd As String
HeutigesDatum_nd = Date - 1
AktuellerMonat_nd = Month(HeutigesDatum_nd)
AktuellesJahr_nd = Year(HeutigesDatum_nd)
Dateiname_nd = AktuellerMonat_nd & "-" & AktuellesJahr_nd
Set wksSource = ActiveSheet
Workbooks.Open Filename:="c:\users\XXXXX\desktop\" & Dateiname_nd & " XXXXXX.xlsx"
Set wksTarget = Worksheets("XXX L")
If IsEmpty(wksTarget.Range("A2")) Then
Msgbox "A2 ist leer" (Nur für Test-Zwecke)
' Man bekommt immer diese Meldung auch wenn vor eine Minute die Daten in A2 gefüllt wurden
Set rngTarget = wksTarget.Range("A2")
Else
Set rngTarget = wksTarget.Cells(10, 11).End(xlDown).Row + 1
End If
Msgbox "A2 ist nicht leer"
wksSource.Range("A2:H10").Copy rngTarget
End Sub
-----------
Ich hoffe dass einer mir helfen kann...
lg
Comment