Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

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"