Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabstrip letzte Zeile in einem Bereich ansprechen

Tabstrip letzte Zeile in einem Bereich ansprechen
12.02.2020 15:46:08
Jörg-Manuel
Hallo liebe Gemeinde,
ich versuche mich gerade an einer kleinen VBA Programmierung und scheidere gerade an einer Programmierung. Vieleicht kann einer von euch helfen.
Ich möchte die letzte beschrieben Zeile eines bestimmten Bereiches ansprechen und die eingetragenen Werte einfügen wenn Tabstrip1, Tabstrip2 und Tabstrip3 gewählt wurden. Das Ereignis soll passieren wenn der Button speichern geklickt wird.
Hier meine Versuche:

Option Explicit

Private Sub CommandButton1_Click()
Worksheets("übersicht").Activate
Dim last As Integer
Select Case TabStrip1.Value
Case Is = 0
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).rwo + 1
Cells(last, 1).Value = TextBox2
Case Is = 1
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).rwo + 1
Cells(last, 1).Value = TextBox2
Case Is = 2
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).rwo + 1
Cells(last, 1).Value = TextBox2
End Select
If UserForm2.OptionButton_Vollkost.Value = False And UserForm2.OptionButton_Diabetiker.Value =   _
_
_
_
False Then
MsgBox "Bitte Vollkost oder Diabetiker eingeben"
Exit Sub
End If
If UserForm2.OptionButton_selbstschmierer.Value = False And UserForm2.OptionButton_geschmiert.   _
_
_
_
Value = False Then
MsgBox "Bitte selbstschmierer oder geschmiert eingeben"
Exit Sub
End If
If UserForm2.OptionButton_ganz.Value = False And UserForm2.OptionButton_geschnitten.Value =  _
False And UserForm2.OptionButton_fleischpü.Value = False And UserForm2.OptionButton_pü.Value =   _
_
_
False Then
MsgBox "Bitte ganz, geschnitten, Fleisch püriert oder püriert vergeben"
Exit Sub
End If
If UserForm2.OptionButton_halbiert.Value = False And UserForm2.OptionButton_geviertelt.Value =   _
_
_
_
False And UserForm2.OptionButton_gewürfelt.Value = False Then
MsgBox "Bitte halbiert, geviertelt oder gewürfelt vergeben"
Exit Sub
End If
If UserForm2.CheckBox_butter.Value = False And UserForm2.CheckBox_margarine.Value = False Then
MsgBox "Bitte Butter oder Margarine vergeben"
Exit Sub
End If
If UserForm2.ob_u.Value = False And UserForm2.ob_m.Value = False And UserForm2.ob_o.Value =  _
False Then
MsgBox "Bitte Wohnwelt vergeben vergeben"
Exit Sub
End If
End Sub


Private Sub TabStrip1_Click(ByVal Index As Long)
Worksheets("übersicht").Activate
Select Case TabStrip1.Value
Case Is = 0
TabStrip1.RowSource = "a11:bk44"
Case Is = 1
TabStrip1.RowSource = "a45:bk79"
Case Is = 2
TabStrip1.RowSource = "a80:bk114"
End Select
End Sub

Ich hoffe sehr das einer diesen Text versteht und mir helfen kann. Ich bin VBA Anfänger!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabstrip letzte Zeile in einem Bereich ansprechen
13.02.2020 07:54:07
Torsten
Hallo Jörg-Manuel,
was mir gleoch mal aufffaellt ist ein Tipfehler:
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).rwo + 1

Das muss "Row" heissen und nicht "rwo"
Gruss Torsten
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige