Office: (Office 2013) Ganze Spalten mit einer Checkbox aus-/einblenden (VBA?)

Beverly · 22. September 2014

Die Werte für Min, Max, und Schritte werden bereits mit dem Change-Ereignis der 3 TextBoxen übertragen, und zwar als NUMERISCHE Werte

Code:

Private Sub TextBox13_Change()
If TextBox13 "" Then
If IsNumeric(TextBox13) Then _
Worksheets("Zusammenführung Messwerte").Range("I16") = CDbl(TextBox13)
End If
End Sub

Private Sub TextBox14_Change()
If TextBox14 "" Then
If IsNumeric(TextBox14) Then
If TextBox13 < TextBox14 Then
Worksheets("Zusammenführung Messwerte").Range("J16") = CDbl(TextBox14)
Application.Calculate
Else
MsgBox "Minimum ist > Maximum"
End If
End If
End If
End Sub

Private Sub TextBox15_Change()
If TextBox15 "" Then
If IsNumeric(TextBox13) Then _
Worksheets("Zusammenführung Messwerte").Range("H16") = CDbl(TextBox15)
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit deinem Code unter dem CommandButton "Daten übernehmen" jedoch:

Code:

Private Sub CommandButton1_Click()

Unload Me

Cells(2, 1) = TextBox1
Cells(2, 2) = TextBox2
Worksheets("Zusammenführung Messwerte").Cells(16, 9) = TextBox13
Worksheets("Zusammenführung Messwerte").Cells(16, 10) = TextBox14
Worksheets("Zusammenführung Messwerte").Cells(16, 8) = TextBox15

Worksheets("Zusammenführung Messwerte").Cells(16, 2) = TextBox3
Worksheets("Zusammenführung Messwerte").Cells(17, 2) = TextBox4
Worksheets("Zusammenführung Messwerte").Cells(16, 3) = TextBox5
Worksheets("Zusammenführung Messwerte").Cells(17, 3) = TextBox6
Worksheets("Zusammenführung Messwerte").Cells(16, 4) = TextBox7
Worksheets("Zusammenführung Messwerte").Cells(17, 4) = TextBox8
Worksheets("Zusammenführung Messwerte").Cells(16, 5) = TextBox9
Worksheets("Zusammenführung Messwerte").Cells(17, 5) = TextBox10
Worksheets("Zusammenführung Messwerte").Cells(16, 6) = TextBox11
Worksheets("Zusammenführung Messwerte").Cells(17, 6) = TextBox12

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

überträgst du die Daten aus diesen TextBoxen NOCHEINMAL (siehe rot markierte Zeilen) und zwar dieses Mal als TEXT. Da musst du dich auch nicht wundern... *wink.gif*

shurka · 22. September 2014

Na toll, also manchmal ist echt der Wurm drin.

Ich danke viel vielmals, hast mir sehr geholfen.

*knuddel *dance *dance *Sun *Sun *cool.gif* *hands *top *top

Office: (Office 2013) Ganze Spalten mit einer Checkbox aus-/einblenden (VBA?)

Ganze Spalten mit einer Checkbox aus-/einblenden (VBA?)

Ganze Spalten mit einer Checkbox aus-/einblenden (VBA?)

Ganze Spalten mit einer Checkbox aus-/einblenden (VBA?) - Similar Threads - Spalten Checkbox einblenden

SUMMEWENN mit dynamische Tabelle auf 1 Spalte eingrenzen

Spalten vergleichen und farblich markieren

Spalte für Klickbare Internetlinks

Nummerierung in Spalte in Text umwandeln

Spalte sortieren und filtern

Mehrere Checkboxes ankreuzen, dann danach Spalte filtern. Möglich?

Checkbox angeklickt > "Ja" in einer Zelle (immer gleiche Spalte)