Textboxberechnung Zeitintervall
30.11.2018 19:18:26
Alex
Hätte 2 kleine Probleme zu lösen wo ich mir schon die ganze Woche die Zähne ausbeiße!
Habe in Textbox 10 in einer UF die Betriebsstunden(2500) stehen die bei jeder Wartung aktualisiert wird
in Textbox 22 soll das Endergebnis stehen im intervall von 500 Stunden
Also wenn 2600 eingetragen wird soll 400 in TB22 stehen usw
anderes bespiel
wenn 2986 eingetragen wird soll 14 in TB22 stehen und in rot (rot 50 vor und 50 nach)
wenn 3120 eingetragen wird soll 380 in TB22 stehen usw usw
Habe mir schon alle Haare vom Kopf gerissen und kein ergebnis hinbekommen :)
Mein 2 Problem bezieht sich auf Textbox suche und Listbox ausgabe
Habe im Bereich AM1 bis AV1 kostenstellen stehen
in einer UF TB1 Suche ich nach der richtigen Kostenstelle
nun soll wenn Kostenstelle AM1 gefunden wurde AM2 bis AM999 in Listbox stehen
Beispiel
90/1032.00|90/1033.00|90/1034.00
Test1
Test2
Test3
usw
Habe mir hier schon die Suche gebaut
Dim rngFind As Range
If TextBox1.Text = "" Then
MsgBox "Geben Sie bitte einen Suchbegriff ein !", _
vbExclamation, "Hinweis"
Else
Set rngFind = Sheets("Eingabe").Range("AM1:BG1").Find(What:=TextBox1.Text, _
LookAt:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
MsgBox "Dieser Datensatz existiert nicht !", _
vbExclamation, "Hinweis"
rngFind.Value = TextBox1.Text
Leider komme ich nun nicht mehr weiter
Danke für eure Hilfe im vorhinein
Alex