Thema Datum  Von Nutzer Rating
Antwort
10.12.2019 11:08:19 Alex
Solved
10.12.2019 11:50:50 Torsten
NotSolved
Rot Mit Button in nächste Zeile springen
 10.12.2019 11:51:20 tscharl
NotSolved
10.12.2019 11:52:40 tscharl
NotSolved
10.12.2019 12:16:15 Alex
NotSolved
10.12.2019 13:13:09 tscharl
NotSolved
10.12.2019 13:42:56 Alex
NotSolved
10.12.2019 13:50:03 tscharl
NotSolved
10.12.2019 13:59:33 Gast55048
NotSolved
10.12.2019 14:31:59 tscharl
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
10.12.2019 11:51:20		 Views:
817		 Rating:
     
Antwort:
  Ja
Thema:
Mit Button in nächste Zeile springen

Hallo Alex, probier einmal folgenden Code:

Option Explicit

Private Sub CommandButton1_Click()
    Dim wks As Worksheet
    Dim addnew As Range
    Dim LetzteZeile As Integer
    Set wks = Tabelle1
    Dim n As Integer
    ' Die letzte benutzte Zeile in Spalte A bestimmen.
    LetzteZeile = wks.Cells(Rows.Count, 1).End(xlUp).Row
    ' Wenn die Spalte ab Zeile 21 leer ist, dann bereite den ersten Eintarg in Zeile 20+1 vor.
    If LetzteZeile < 21 Then LetzteZeile = 20
    ' Die Position um 1 Zeile tiefer als die letzte Zeile wird festgelegt.
    Set addnew = wks.Cells(LetzteZeile + 1, 1)
    ' Trage die Werte der 5 Textboxen ein.
    For n = 0 To 4
        addnew.Offset(0, n).Value = Me.Controls("txt_" & n + 1).Text
    Next n
End Sub

Gruß

tscharl

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.12.2019 11:08:19 Alex
Solved
10.12.2019 11:50:50 Torsten
NotSolved
Rot Mit Button in nächste Zeile springen
 10.12.2019 11:51:20 tscharl
NotSolved
10.12.2019 11:52:40 tscharl
NotSolved
10.12.2019 12:16:15 Alex
NotSolved
10.12.2019 13:13:09 tscharl
NotSolved
10.12.2019 13:42:56 Alex
NotSolved
10.12.2019 13:50:03 tscharl
NotSolved
10.12.2019 13:59:33 Gast55048
NotSolved
10.12.2019 14:31:59 tscharl
NotSolved