Bitte, bitte, bitte helft mir, sonst bekomm ich einen Heulkrampf!!
Ich habe ein größeres Excelprojekt und bin ein einer Stelle schon seit Stunden festgefahren und sehe nicht was falsch ist...
Folgendes:
Ich habe hier einen Code im Internet gefunden, der mir die nächste frei Zeile einer Splate angibt.
(Verstehen tue ich ihn nicht wirklich)
In diese freie Zeile bzw. Zelle der Spalte wird dann etwas geschrieben.
Nun- der Code funktioniert, solange ich auf dem Tabellenblatt bin in dem die Daten geschrieben werden!
Wenn ich den Code jedoch von einem anderen Tabellenblatt aus starte, dann funktioniert er nicht ;.....(
Aber es kommt keine Fehlermeldung...
Hier der Code (Ausschnitt):
Sub Test() Dim s1 As Variant Dim s2 As Variant Dim t1 As Variant t1 = Worksheets("Tabelle1").Cells(7, 4).End(xlDown).Row For i = 8 To t1 s1 = Worksheets("Tabelle1").Range("B" & i).Value Worksheets("Tabelle2").Cells(Application.Max(1, Cells(Rows.Count, 3).End(xlUp).Row + 1), 3) = _ s1 s2 = Worksheets("Tabelle1").Range("C" & i).Value Worksheets("Tabelle2").Cells(Application.Max(1, Cells(Rows.Count, 4).End(xlUp).Row + 1), 4) = _ s2 Next End Sub
Persönlich denke ich, dass es mit dem fett gedruckten Code zusammenhängt (aber wirklich Ahnung habe ich nicht).
Denn ich habe im Debugger mal eine Einzelschrittverfolgung gemacht und die Werte werden richtig in die Variablen (s1,s2) geschrieben. Nur eben beim Schreibvorgang schein was nicht zu stimmen...
Bei Bedarf lade ich auch sehr gerne eine Beispieldatei hoch!!
Ich würde mich über eure kompetente Hilfe SEHR freuen!!
Vielen Dank!
Lisa