Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle ansteuern

Tabelle ansteuern
26.02.2008 16:28:10
Markus
Hallo zusammen,
habe ein Userform und will je nach OptionButton1 = true oder OptionButton2 = true Werte aus Textboxen in eine jeweilige Tabelle schreiben. Mit einer Tabelle ging das Prima, nur mit zwei verschiedenen weiß ich nicht weiter. Habe es wie unten probiert, aber so scheint es überhaupt nicht zu klappen. Kann mir bitte jemand helfen.
Private Sub CommandButton3_Click()
Dim Zeile As Long
If OptionButton1 = True Then
With Sheets("Eingabe")
Elseif OptionButton2 = True Then
With Sheets("Eingabe (2)")
Zeile = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(Zeile, 2) = TextBox19.Text 'Prüfer
.Cells(Zeile, 4) = Date 'Datum
.Cells(Zeile, 5) = Time 'Zeit
.Cells(Zeile, 6) = TextBox18.Text 'Machine
End if
Vielen Dank und Gruß
Markus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle ansteuern
26.02.2008 16:36:58
tco99
Hallo Markus,
mal so eine Idee, vielleicht musst du noch den Dateinamen ergänzen:
If OptionButton1 = True Then
[Test1.xls]Eingabe(2)'!A1
Kann sein, dass du den Dateinamen noch anders einbetten musst.
Gruß
Erdogan

AW: Tabelle ansteuern
26.02.2008 16:40:00
Rudi
Hallo,

Private Sub CommandButton3_Click()
Dim Zeile As Long, wks As Worksheet
If OptionButton1 = True Then
Set wks = Sheets("Eingabe")
ElseIf OptionButton2 = True Then
Set wks = Sheets("Eingabe (2)")
End If
If Not wks Is Nothing Then
With wks
Zeile = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(Zeile, 2) = TextBox19.Text 'Prüfer
.Cells(Zeile, 4) = Date 'Datum
.Cells(Zeile, 5) = Time 'Zeit
.Cells(Zeile, 6) = TextBox18.Text 'Machine
End With
Set wks = Nothing
End If
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Tabelle ansteuern
27.02.2008 09:05:00
Markus
Hallo Zusammen,
danke für Eure Hilfe. Habe mich für die Lösung von Rudi entschieden. Funktioniert einwandfrei.
Vielen Dank
Gruß
Markus

AW: Tabelle ansteuern
26.02.2008 16:48:00
Roland
Hallo Markus,
probier es mal so:

Private Sub CommandButton3_Click()
Dim Zeile As Long
Dim which_sheet As String
If OptionButton1.Value = True Then
which_sheet = "Eingabe"
Else
if OptionButton2.Value = True Then
which_sheet ="Eingabe (2)"
End If
With Sheets(which_sheet)
.Range("B:B").Value = TextBox19.Text
.Range("D:D").Value = "Date"   ' oder auch ein generiertes Datum
.Range("E:E").Value = "Time"
.Range("F:F").Value = TextBox18.Text
End With


Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige