Code anpassen

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


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Code anpassen
von: Jens
Geschrieben am: 17.07.2002 - 18:24:41

Hallo zusammen,für den untenstehen´den Code brauche ich mal eure Hilfe. Ich wollte den Code so umschreiben das nicht mehr die erste leere Zeile sondern die Zeile mit der activen Zelle angesprochen wird. In spalte 2 soll dann wie bisher der Text der TextBox 2 stehen usw.

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: Code anpassen
von: Martin M.
Geschrieben am: 17.07.2002 - 18:38:19

Hallo Jens,
wenn ich dich richtig verstanden habe, müsste das die Lösung sein:

intRow = ActiveCell.Row

Grüße
Martin M.

nach oben   nach unten

Re: Code anpassen
von: Andreas
Geschrieben am: 17.07.2002 - 18:41:57

Hallo Jens,

Problem ist das ActiveCell immer in ActiveSheet liegt und wenn Du grad im anderen Worksheet als "Rechnung" bist, ist es etwas umständlicher. Das sollte weiter helfen:

Private Sub InTabelle_Click()
Dim wsMerk As Worksheet
Set wsMerk = ActiveSheet
Application.ScreenUpdating = False
Worksheets("Rechnung").Activate
With Cells(ActiveCell.Row, 1)
    .FormulaR1C1 = "=IF(R[-1]C = ""Lfd.-Nr."",1,(R[-1]C)+1)"
    .Offset(0, 1).Value = TextBox1.Text & " " & ComboBox1.Text
    .Offset(0, 2).Value = Gesamtpreis.Text
    .Offset(0, 4).FormulaR1C1 = "=rc[-2]*rc[-1]"
End With
wsMerk.Activate
Application.ScreenUpdating = True
End Sub

Viel Spaß,
Andreas

nach oben   nach unten

Saubere Lösung! (o.w.t.)
von: Martin M.
Geschrieben am: 17.07.2002 - 18:47:47

.

 nach oben

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