Hallo Uwe,
sehe dass du sehr bewandert in Sachen Excel Vba bist und nicht nur in diesem Forum.
vielleicht hast du ja noch Zeit übrig und mir meine Letzte Frage zu beantworten.
Ich weis habe geschrieben hätte noch Zeit aber du weist bestimmt wie das ist, mann will halt wieder ein Stück weiterkommen.
Mfg
bimbim
Hallo Manfred,
wenn Du eine
Beispielmappe mit Deinem jetzigen Stand posten würdest, könnten ich bzw. wir mal gucken.
Gruß Uwe
Hallo Uwe,
Aber vielleicht hat ja schon jemand ein Rechnungsprogramm in Excel Vba geschrieben und würde es kostenlos zu verfügung stellen.
Mfg
bimbim
wollte ein bild ser userform schicken
aber bekomme es nicht hin
wäre zu groß
versuche es weiter
Hallo,
(15.07.2016, 21:07)bimbim schrieb: [ -> ]wollte ein bild ser userform schicken
aber bekomme es nicht hin
wäre zu groß
versuche es weiter
ich schrieb "Beispiel
mappe" mit hinterlegtem Link, wie man das macht!
Gruß Uwe
Hallo Uwe,
nicht böse werden!
hatte da was misverstanden.
versuche es jetzt besser zu machen.
trotzdem danke für deine Geduld mit mir.
Mfg
bimbim
[
attachment=6083]
Hallo Manfred,
hier für die erste Zeile (die restlichen darfst Du selber ergänzen):
Private Sub TextBox101_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox101) Then
TextBox101 = ""
Else
If IsNumeric(TextBox201) Then
Textbox16 = TextBox101 * TextBox201
TextBox16_BeforeUpdate Cancel
End If
End If
End Sub
Private Sub TextBox201_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox201) Then
TextBox201 = ""
Else
TextBox201 = EingabeCheck(TextBox201)
If IsNumeric(TextBox101) Then
Textbox16 = TextBox101 * TextBox201
TextBox16_BeforeUpdate Cancel
End If
End If
End Sub
Die ComboBox1 habe ich noch etwas "verfeinert":
Private Sub UserForm_Activate()
'...
With Worksheets("Artikelstamm")
ComboBox1.List = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
'...
End Sub
Private Sub ComboBox1_Change()
Dim i As Long
Static blnAus As Boolean
If Not blnAus Then
For i = 1 To 5
With Me.Controls("Textbox" & i)
If .Value = "" Then
.Value = ComboBox1.Value
Exit For
End If
End With
Next i
blnAus = True
i = ComboBox1.ListIndex
ComboBox1.ListIndex = -1
ComboBox1.RemoveItem i
blnAus = False
End If
End Sub
Gruß Uwe
Hallo Uwe,
zuerst mal danke!!
du hast aber schon bemerkt dass durch einfügen von
"Option Explicit"
keine Uhrzeit und kein Datum mehr angezeigt wird.
Mfg
bimbim
Hallo Manfred,
(17.07.2016, 21:14)bimbim schrieb: [ -> ]du hast aber schon bemerkt dass durch einfügen von
"Option Explicit"
keine Uhrzeit und kein Datum mehr angezeigt wird.
nö, daran liegt das nicht. Aber nachdem der Lüfter meines Laptops auf Anschlag lief, hab ich den entsprechenden Code auskommentiert.
Gruß Uwe