brauche mal eure hilfe.
Wie bekomme ich den Zeilennamen mit vba in eine celle geschrieben? Habe es so probiert
.Offset(1, 64) = zeile()
aber das klappt nicht. Hat jemanseine Ideeß
Gruß&Dank
kocky
Private Sub cmdSave_Click()
Dim Zeile
With wksbew_dat.Cells(wksbew_dat.Rows.Count, 1).End(xlUp)
Zeile = ActiveCell.Row
MsgBox Zeile
.Offset(1, 0) = TextBox1.Value 'Name
.Offset(1, 2) = Zeile
End With
sort1
Set wksbew_dat = Nothing
ActiveWorkbook.Save
End Sub
Gruß&Dank
kocky
Private Sub cmdSave_Click()
Dim Zeile
With wksbew_dat.Cells(wksbew_dat.Rows.Count, 1).End(xlUp)
.Activate
Zeile = ActiveCell.Row
MsgBox Zeile
.Offset(1, 0) = TextBox1.Value 'Name
.Offset(1, 2) = Zeile
End With
sort1
Set wksbew_dat = Nothing
ActiveWorkbook.Save
End Sub
Gruß&Dank
kocky