Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datentyp definieren VBA

Datentyp definieren VBA
21.06.2005 10:50:06
Andreas
Hallo zusammen,
habe hier eine Eingabemaske mit verschiedenen Feldern, Jetzt möchte ich aber das Feld "Textbox2" als Zahl Long mit Vorgabe "€", und das Feld "Textbox2" als Date, die anderen Felder als String definieren.
Wie muss ich das machen?
Vielen Dank für jeden Tipp Gruss Andreas

Private Sub CommandButton1_Click()
Dim irow As String
With Sheets(1)
irow = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(irow, 1) = Datensatz_neu.TextBox1
.Cells(irow, 2) = Datensatz_neu.TextBox2
.Cells(irow, 3) = Datensatz_neu.ComboBox1
.Cells(irow, 4) = Datensatz_neu.TextBox4
.Cells(irow, 5) = Datensatz_neu.ComboBox2
.Cells(irow, 6) = Datensatz_neu.TextBox6
End With
Unload Datensatz_neu
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datentyp definieren VBA
21.06.2005 11:31:42
Dani
Hallo
du könntest eine Typkonvertierung beim Auslesen der Felder anwenden:

Private Sub CommandButton1_Click()
Dim irow As String
With Sheets(1)
irow = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(irow, 1).Value = CLng(Datensatz_neu.TextBox1.Text) & " Euro"
.Cells(irow, 2).Value = CDate(Datensatz_neu.TextBox2.Text)
.Cells(irow, 3).Value = CStr(Datensatz_neu.ComboBox1.Text)
.Cells(irow, 4).Value = CStr(Datensatz_neu.TextBox4)
.Cells(irow, 5).Value = CStr(Datensatz_neu.ComboBox2)
.Cells(irow, 6).Value = CStr(Datensatz_neu.TextBox6)
End With
Unload Datensatz_neu
End Sub

Die Konvertierung nach String kannst du dir aber wahrscheinlich sparen.
Gruss
Dani
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige