Hallo Mario,
mit anderen Worten, das Einlesen aus der Tabelle in die Textboxen funktioniert aber das Zurückschreiben in die Tabelle funktioniert nicht, korrekt?
Zum Zurückschreiben den gleichen Code nehmen nur den Ausdruck links vom Gleichheitszeichen mit dem rechts davon tauschen.
Hallo Atilla,
du bist mein Held :23:.
Das funktioniert ausgezeichnet.
Danke und VG Mario
Hallo Mario,
wenn es aber Zahlen sind, die übertragen werden, dann hast Du jetzt Text in den Zellen. Daran hatte ich nicht gedacht
Ausgehend davon, dass alle Textboxen Zahlen enthalten, geht es so:
Code:
Private Sub CommandButton2_Click()
Dim i As Long
'Einträge aus TextBox werden beim drüchen des Button "übernehmen" in die Zellen geschrieben
For i = 1 To 13
If cboIntervalle.ListIndex > 0 Then
If Me.Controls("TextBox" & i) <> "" Then
Worksheets("Tabelle1").Cells(65 + i, 3 + cboIntervalle.ListIndex).Value = CDbl(Me.Controls("TextBox" & i))
End If
End If
Next i
End Sub
super ich danke dir Atilla :19:
VG Mario
Hi Günter,
(03.01.2015, 17:39)WillWissen schrieb: [ -> ]das habe ich schon im Beitrag #2 geschrieben.
aber das nicht:
(03.01.2015, 17:39)WillWissen schrieb: [ -> ]Dabei nicht die TAGs "code" durch den Makro-Code ersetzen![/color]
und das hat er immer gemacht.
Dann sieht es so aus:
[Private Sub CommandButton2_Click()
'Einträge aus TextBox werden beim drüchen des Button "übernehmen" in die Zellen geschrieben
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If cboIntervalle.ListIndex = 1 Then
xZeile = [D78].End(xlUp).Row + 1
Else
xZeile = cboIntervalle.ListIndex + 1
End If
Cells(xZeile, 4) = TextBox1
Cells(xZeile, 4) = TextBox2
End Sub]
und das ist nicht korrekt dargestellt, denn da hat der Button auch nix gebracht.
Hallo Günter,
Hallo Ralf,
es muss im Original auch ein Code mit Einrückungen vorliegen.
Das ist in Marios Code nicht der Fall. Mario strukturiert seinen Code eher mit Leerzeilen.
Aber man sollte ihm deshalb keinen Vorwurf machen. Als ich mit VBA anfing wusste ich auch nicht, was Einrückungen sind und wie ein Code strukturiert werden kann. Wichtig war für mich erst einmal, dass ich den Code zum laufen bringe und dass er das tut, was ich erreichen wollte.