Makrocode anpassen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Makrocode anpassen
von: Jens
Geschrieben am: 14.07.2002 - 17:48:40

Hallo, wer kann mir dabei helfen den Code anzupassen das die Werte nicht in die erste leere Zeile in Spalte 2 sondern in die active Zeile in Spalte 2 eingefügt wird? Ich habe schon versuchtdie Zeile "intRow = Worksheets("Rechnung").Cells(Rows.Count, 2).End(xlUp).Row + 1" durch "intRow = Worksheets("Rechnung").Cells(Rows.Count, 2).activeRow" zu ersetzen, aber war dabei auf dem Holzweg.


Private Sub InTabelle_Click()
Dim intRow As Integer
intRow = Worksheets("Rechnung").Cells(Rows.Count, 2).End(xlUp).Row + 1
With Worksheets("Rechnung")
.Cells(intRow, 1).FormulaR1C1 = "=IF(R[-1]C = ""Lfd.-Nr."",1,(R[-1]C)+1)"
.Cells(intRow, 2) = TextBox1.Text & " " & ComboBox1.Text
.Cells(intRow, 3) = Gesamtpreis.Text
.Cells(intRow, 5).FormulaR1C1 = "=rc[-2]*rc[-1]"
End With
End Sub

Vielen Dank im voraus Jens


nach oben   nach unten

Re: Makrocode anpassen
von: MikeS
Geschrieben am: 14.07.2002 - 19:46:37

Hi Jens,

so wird die Zeilennummer der aktiven Zelle ermittelt.

intRow = Worksheets("Rechnung").Cells(ActiveCell.Row)


Ciao Mike


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makrocode anpassen"