Tabelle ansteuern

Forumthread: 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

AW: Tabelle ansteuern

26.02.2008 16:36:58

tco99
AW: Tabelle ansteuern

26.02.2008 16:40:00

Rudi
AW: Tabelle ansteuern

27.02.2008 09:05:00

Markus
AW: Tabelle ansteuern

26.02.2008 16:48:00

Roland

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabelle ansteuern

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread