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?
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
Ne, damit hat es leider nicht zu tun. Das bin ich nämlich.
Und was klappt dann nicht?
Hast du mal Einzelschritt versucht?
bei mir gehts.
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
Ich hab's! Eine verbundene Zelle war Schuld
Ich danke euch beiden für die Mühe!