Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Letzte Spalte ?
#1
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
Antwortento top
#2
Hallo,

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

Einen Schritt besser wäre "LastCell" abzufrage:

Code:
Col = activesheet.usedrange.specialcells(xlCellTypeLastcell)

(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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste