Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatierung des Ergebnisses

Formatierung des Ergebnisses
19.10.2012 18:43:59
Peter
Habe folgenden Code
Private Sub CommandButton1_Click()
Dim z As Integer
With Sheets("Daten")
z = Range("B65565").End(xlUp).Row + 1
Cells(z, 2) = ComboBox1.Value + TextBox1.Value + TextBox2.Value + TextBox3.Value
Cells
End With
End Sub
Das funktioniert auch. ABER!!!
Jetzt soll aber die Zelle so formatiert werden(Leerzeichen soll als Leezeichen dargestellt werden, "x" soll als x dargestellt werden)
Combobox1 Textbox1"x"Textbox2
Außer es steht "Trapez" in der Combobox-->
Combobox1 Textbox1/Textbox2"x"Textbox3
Ich weiß irgendwie nicht weiter.
Vielen Dank im Vorraus
Greetz PTR

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung des Ergebnisses
19.10.2012 18:55:19
hary
Moin
Versuch 
Cells(z, 2) = ComboBox1.Value & " " & TextBox1.Value & " x " TextBox2.Value & " x " TextBox3. _
Value

gruss hary

AW: neuer Code
20.10.2012 19:32:43
hary
Hallo Peter
Hatte ich falsch verstanden. Hier der gesamte neue Code fuer Userform: neues_Format 
Option Explicit
Private Sub CommandButton1_Click()
Dim z As Integer
With Sheets("Daten")
z = Range("B65565").End(xlUp).Row + 1
Select Case ComboBox1.Value
Case "Dreieck", "Halbrund", "Rechteck"
If TextBox1 = "" Or TextBox2 = "" Then Exit Sub
MsgBox ComboBox1.Value & " " & TextBox1 & "x" & TextBox2
Case "Trapez"
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then Exit Sub
MsgBox ComboBox1.Value & " " & TextBox1 & "/" & TextBox2 & "x" & TextBox3
End Select
End With
End Sub
'..... In den Textboxen koennen nur Zahlen und Komma eingegeben werden
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 46 And 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 46 And 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 46 And 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Private Sub UserForm_Initialize()
TextBox3.Visible = False
Label5.Visible = False
End Sub
Private Sub ComboBox1_Change()
TextBox3.Visible = IIf(ComboBox1.Value = "Trapez", True, False)
Label5.Visible = IIf(ComboBox1.Value = "Trapez", True, False)
End Sub
Private Sub CommandButton2_Click()
'Beim klick auf diesen Button schliesst sich die Eingabemaske "neues Format"
Unload Me
End Sub

gruss hary
Anzeige

Links zu Excel-Dialogen

Label TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige