Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:00:48
Datum als Datum sehen
18.04.2024 14:36:42
Texte Zählen bzw. Anzahl zusammenzählen
18.04.2024 14:27:59
Datum wenn Betrag bei jährl. wechselnder Reduzierung 0 wird
18.04.2024 14:14:51
Summewenn letzter Eintrag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
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
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Textbox und Datenbankabfrage rechnen

Mit Textbox und Datenbankabfrage rechnen
anne86
Hallo liebes Forum,
ich habe mir eine Userform mit VBA programmiert. Wenn die Daten in das Tabellenblatt übernehme rufe ich gleichzeitig einen Preis aus einer Acces Datenbank ab. Jetzt soll das Programm mir aber auch direkt bei der Übernahmen den im Textfeld festgehaltenen Prozentsatz auf den Preis aufschlagen!
Wäre super, wenn mir jemand helfen könnte!
Vielen lieben Dank schon mal!
anne86

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mit Textbox und Datenbankabfrage rechnen
30.03.2011 20:20:11
Hajo_Zi
Hallo Anne,
cdbl(textbox1)* Variable

AW: Mit Textbox und Datenbankabfrage rechnen
30.03.2011 20:32:15
anne86
Hallo Hajo,
iwie blicke ich da nicht so ganz durch.
hier mal als beispiel mein programmcode:
Dim conn2 As New Connection
Dim rec2 As New Recordset
Dim sql2$
If Not Basisdaten.Endprodukt = "" And Basisdaten.APLimit = "Anstieg um mx." Then
Set ws = ThisWorkbook.Worksheets("Datenbasis")
Worksheets("Datenbasis").Activate
tissue = Basisdaten.Endprodukt.Value
conn2.Open "Provider=Microsoft.jet.oledb.4.0;" + _
"Data Source =" + ThisWorkbook.Path + "\Datenbasis Modell.mdb"
sql2 = "SELECT [AP] From FinPro Where [Material] = " & tissue & ";"
rec2.Open sql2, conn2
rec2.MoveFirst
With price = rec2![AP]
ws.[C12].Cells(i).Value = (CDbl(Prozentsatz)) * price
rec2.MoveNext
End With
End If
Sorry habe nur wenig Ahnung von VBA und musste mir das für meine Masterthesis alles iwie selbst beibringen :)
Anzeige
AW: Mit Textbox und Datenbankabfrage rechnen
30.03.2011 20:50:34
Hajo_Zi
Hallo Anne,
da kann ich Dir leider nicht helfen. Dein Code verstehe ich nicht.
so eine Anweisung With price = rec2![AP] habe ich noch nie gesehen
Gruß Hajo
AW: Mit Textbox und Datenbankabfrage rechnen
30.03.2011 20:55:47
anne86
hallo Hajo,
ursprünglich war der code so
rec2. MoveFirst
With ws.[C12].Cells(i).Value = rec2![AP]
rec2.MoveNext
Dann ruft er den Preis aus der Datenbank ab und trägt ihn in das Tabellenblatt ein. aber halt ohne den Prozentsatz aus dem Textbox aufzuschlagen
der preis wird über eine materialnummer aus der datenbank abgerufen, die in der userform in einem Kombinationsfesl ausgewählt werden kann
trotzdem schon mal vielen dank für deine Hilfe
Anzeige
AW: Mit Textbox und Datenbankabfrage rechnen
30.03.2011 20:39:16
anne86
Hallo Hajo,
iwie blicke ich da nicht so ganz durch.
hier mal als beispiel mein programmcode:
Dim conn2 As New Connection
Dim rec2 As New Recordset
Dim sql2$
If Not Basisdaten.Endprodukt = "" And Basisdaten.APLimit = "Anstieg um mx." Then
Set ws = ThisWorkbook.Worksheets("Datenbasis")
Worksheets("Datenbasis").Activate
tissue = Basisdaten.Endprodukt.Value
conn2.Open "Provider=Microsoft.jet.oledb.4.0;" + _
"Data Source =" + ThisWorkbook.Path + "\Datenbasis Modell.mdb"
sql2 = "SELECT [AP] From FinPro Where [Material] = " & tissue & ";"
rec2.Open sql2, conn2
rec2.MoveFirst
With price = rec2![AP]
ws.[C12].Cells(i).Value = (CDbl(Prozentsatz)) * price
rec2.MoveNext
End With
End If
Sorry habe nur wenig Ahnung von VBA und musste mir das für meine Masterthesis alles iwie selbst beibringen :)
Anzeige

303 Forumthreads zu ähnlichen Themen

Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Anzeige
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Exceldaten als Fliestext in Word einbinden?
Frank

Hallo zusammen,
ich habe eine halbe Excel und halbe Wordfrage :-)
Ich habe eine Exceltabelle mit diversen Zahlenmaterial. Das Zahlenmaterial wird ständig aktualisiert. Parallel dazu habe ich einen geschriebenen Langtext in Word, der eine Art ausführliche Erklärung zur Exceltabelle darst...
23.10.2008 07:08:00
Thread-ID: 1018498
3 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Formel in Makro umwandeln?
Josef_T

Guten Abend zusammen.
Habe mal wieder ein Problem, dass ich alleine nicht gelöst bekomme.
Es geht darum, einen Ausdruck zu machen wobei nur Zeilen gedruckt werden sollen, die in C einen Wert haben, der grösser Null ist.
Habe mal ein Muster hochgeladen, weil meine Fragen und Erklärun...
29.11.2008 19:08:00
Thread-ID: 1028896
6 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
7
2
2
6
12
2
4
3
5
6
1
5
2
4
2
3
5
2
14
1
2
3
1
3