Thema Datum  Von Nutzer Rating
Antwort
28.11.2010 19:40:11 nadeem
NotSolved
Blau Aw:VBA code überschreibt Daten (office 2010)
 28.11.2010 22:28:55 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
28.11.2010 22:28:55		 Views:
692		 Rating:
     
Antwort:
  Ja
Thema:
Aw:VBA code überschreibt Daten (office 2010)
nadeem schrieb am 28.11.2010 19:40:11:

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 Sad. 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


Ersezte
If IsEmpty(wksTarget.Range("A2")) Then
durch
If wksTarget.Range("A2")="" Then
IsEmpty funktioniert hier nicht!
Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.11.2010 19:40:11 nadeem
NotSolved
Blau Aw:VBA code überschreibt Daten (office 2010)
 28.11.2010 22:28:55 Severus
NotSolved