Combobox in UF Listindex

[atilla]

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.

[Mario]

Hallo Atilla,

du bist mein Held :23:.
Das funktioniert ausgezeichnet.

Danke und VG Mario

[atilla]

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

[Mario]

super ich danke dir Atilla :19:

VG Mario

[WillWissen]

Code strukturiert dargestellt durch 3. Button von rechts im Beitragsformular: #
photo Raute_zps3ee56209.jpg

Dabei nicht die TAGs "code" durch den Makro-Code ersetzen!
[Bild: smilie.php?smile_ID=1810]
[/quote]

Hi Ralf,

das habe ich schon im Beitrag #2 geschrieben.

[Rabe]

Hi Günter,

das habe ich schon im Beitrag #2 geschrieben.

aber das nicht:

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.

[atilla]

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.