Werte als Zahl über geben
10.06.2020 16:54:04
Thomas
Funktioniert auch gut bis auf eine Kleinigkeit.
Der Wert aus der ComboBox1 wird als Text übergeben, folge hier raus, ich muss auf das Worksheet und "In eine Zahl umwandeln" anklicken. (Muss ich tun sonst funktioniert meine Pivot-Tabelle nicht richtig.
Wie kann ich dem Skript sagen, dass es den Inhalt aus ComboBox1 als Zahl speichern soll (In ComboBox1 stehen sowie so nur Zahlen drin)?
Private Sub CommandButton1_Click()
Dim letzte As Long
With Worksheets("Vorgaben")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(letzte, 1).Value = Me.TextBox1
.Cells(letzte, 2) = TextBox2
.Cells(letzte, 3) = TextBox3
.Cells(letzte, 4) = ComboBox4
.Cells(letzte, 5) = ComboBox1 'dieser Wert soll als Zahl übergeben werden
.Cells(letzte, 6) = ComboBox2
.Cells(letzte, 16) = ComboBox3
End With
MsgBox "Neues xxxx wurde angelegt" & vbCrLf & "Zum Anlegen eines weiteren xxxx OK klicken" & _
vbCrLf & "Zum Beenden Abbrechen klicken", vbOKOnly, " Erfolgreich"
Cancel = True
With Worksheets("Übersicht")
Range("B2").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End With
End Sub
Wäre für jeden Tip dankbar.
Anzeige