Clever-Excel-Forum

Hallo Zusammen, 

versuche gerade über eine Funktion Daten aus einem Datenblatt in ein weiteres Datenblatt zu übertragen. 

Es soll die letzte verwendete Spalte ermittelt werden, und dann jedes mal die nächste freie Spalte beschrieben werden. 

Mein Versuch: 


Private Sub Speicherort182()


    Dim SpalteMax As Long
    Dim Spalte As Long

    With Tabelle64
   
    'Ermittlung der letzten verwendeten Spalte
    SpalteMax = .UsedRange.Columns.Count
    Spalte = SpalteMax + 1
   
   
    'Kopfdaten
    .Range(Spalte & 5).Value = Me.Range("C5").Value
    .Range(Spalte & "6").Value = Me.Range("C6").Value


.....

End With
   
    MsgBox "Daten erfolgreich übertragen.", , p_cstrMsgTitel
 
End Sub



:22:

Vielen Dank im Voraus

Hallo,

der gezeigte Ansatz könnte funktionieren, sofern die Tabelle in A1 beginnt.

Einen Schritt besser wäre "LastCell" abzufrage:


(ungeprüft, bitte google oder Intellisence nutzen)

Auch dieser Ansatz geht schief, falls einige Spalten gelöscht wurde, "UsedRange" wird erst beim Speichern neu berechnet.

mfg