VBA-Code Problem

[Dorzen14]

Hallo,



so sieht mein VBA-Code aus, der Daten aus einem Tabellenblatt in die erste freie Zeile eines zweiten Tabellenblatts ablegen soll:

Code:

Sub Schaltfläche5_Abschließen()

    Dim intErsteLeereZeile As Long
    intErsteLeereZeile = Sheets("Datenhinterlegung").Cells(Rows.Count, 2).End(xlUp).Row + 1

    Sheets("Datenhinterlegung").Cells(intErsteLeereZeile, 2).Value = ActiveSheet.Range("E2").Value

End Sub

Leider funktioniert das aber nicht.
Was mache ich falsch?

[UweD]

Hallo

du musst in einem anderen Blatt sein als "Datenhinterlegung"

Wenn du in "Datenhinterlegung" bist und es dort aufrufst, wird aus dem gleichen Blatt der Wert von E2 genommen .


LG UweD

[Dorzen14]

Ne, damit hat es leider nicht zu tun. Das bin ich nämlich.

[UweD]

Und was klappt dann nicht?

Hast du mal Einzelschritt versucht?

bei mir gehts.

[Gast 123]

Hallo

ich habe deb Code gerade getestet, mit Tabelle1 und Testdaten. Er klappt einwandfrei!!
Dann baue bitte mal eine MsgBox ein und schaue dir den Wert der Variablen "intErsteLeereZeile" genau an.
Ich dachte zuerst DAS sei dein Fehler, weil du sie als "int=Integer" und nicht als "lng" = long angibst! Sie ist aber mit DIM richtig deklariert.

Code:

Sub Schaltfläche5_Abschließen()
    Dim intErsteLeereZeile As Long
    intErsteLeereZeile = Sheets("Sayfa1").Cells(Rows.Count, 2).End(xlUp).Row + 1

MsgBox intErsteLeereZeile:  Exit Sub

    Sheets("Sayfa1").Cells(intErsteLeereZeile, 2).Value = ActiveSheet.Range("E2").Value
End Sub

Wundere dich nicht wenn die MsgBox unglaubliche Werte anzeigt. Hast du irgendwo ein Zeichen in dieser Spalte, in den letzten Zeilen???

mfg Gast 123

[Dorzen14]

Ich hab's! Eine verbundene Zelle war Schuld

Ich danke euch beiden für die Mühe!