Von |
Sabinchen |
Am |
24. August 2008 um 19:00:07 |
Frage |
Hallo Leute,bei meinen Quellcode unten habe ich die Aktive Spalte und Zeile ausgelesen und dann in die Aktive Zelle ein Wort eingefügt.Das funktioniert ja prima. Nur wie mache ich das mit mehreren Spalten.
Also ich will in A4:A9 jeweils ein Wort einfügen, und das ganze soll dynamisch sein. Private Sub CommandButton2_Click()
Dim intLetzteReihe As Integer Dim intLetzteSpalte As Integer intLetzteSpalte = ActiveCell.Column 'selektierte Spalte auslesen' intLetzteReihe = ActiveCell.Row 'selektierte Zeile auslesen'
Cells(intLetzteReihe, intLetzteSpalte).Value = "Thomas"
End Sub |
|