userform: werte in aktive zeile eintragen
Betrifft: userform: werte in aktive zeile eintragen
von: Lars
Geschrieben am: 08.09.2004 17:56:53
hallo! habe folgendes problem: ich möchte, dass folgender command in der zeile beginnt, die ich dokument ausgewählt habe (also wenn ich zelle a4/b4/c4 usw. anklicke und dann das makro starte, sollen die ersten werte in zeile 4 eingetragen werden), dann in zeile 5 usw. bin erst seit 5 tagen mit vba dabei, hoffe jemand kann mir helfen! vielen dank, lars
Private Sub cmdNächste_Click()
Dim r As Long
Dim ws As Worksheet
Set ws = Worksheets("Bestand")
r = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Range("A" & r).Value = txtAnzahl.Value
ws.Range("B" & r).Value = txtKatalogNr.Value
ws.Range("C" & r).Value = txtNrErgänzung.Value
ws.Range("E" & r).Value = txtBeschreibung.Value
ws.Range("F" & r).Value = txtKatalogwert.Value
ws.Range("G" & r).Value = txtFaktor.Value
txtAnzahl.Value = "1"
txtKatalogNr.Value = ""
txtNrErgänzung.Value = ""
txtBeschreibung.Value = ""
txtKatalogwert.Value = ""
txtFaktor.Value = "1,0"
txtAnzahl.SetFocus
End Sub
Betrifft: AW: userform: werte in aktive zeile eintragen
von: Ramses
Geschrieben am: 08.09.2004 20:00:50
Hallo
deine frage steht diametral zu dem was dein makro macht :-)
Mit
r = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
suchst du die letzte freie zelle in Spalte A und schreibst dann in diese Zeile.
Wenn du dort hin schreiben willst wo die Markierung ist, dann muss es lauten
r = ActiveCell.row
Gruss Rainer
Beiträge aus den Excel-Beispielen zum Thema "userform: werte in aktive zeile eintragen"