Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
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
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm-Inhalte in Tabelle einfügen u formatieren

UserForm-Inhalte in Tabelle einfügen u formatieren
07.04.2017 07:55:45
Kemmi
Hallo ihr Lieben,
ich habe ein Kalkulationstool mit VBA geschrieben das über ein UserForm Inhalte ausrechnet und dann in das Excel-Arbeitsblatt einträgt.
Nun würde ich gerne, sowohl im UserForm, als auch in den einzelnen Spalten im Arbeitsblatt eine Formatierung einstellen.
Manche Werte sollen mit € gekennzeichnet sein, andere mit "ml", oder "Stück", oder "kwh" usw.
Ist das möglich?
Außerdem wäre es schön, wenn die Spaltenbreite beim einfügen automatisch angepasst wird.
Kann mir jemand helfen?

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm-Inhalte in Tabelle einfügen u formatieren
07.04.2017 08:41:17
hary
Moin
Meinst du fuer z.B. Textboxen? 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "0.00 €")
End Sub

und das andere: 
Columns(1).AutoFit '--SpalteA autom. Spaltenbreite
Columns(1).NumberFormat = "0.00 €" '--SpalteA Format
Columns(2).NumberFormat = "0 ""Stück""" '--SpalteB Format

gruss hary
UserForm-Inhalte in Tabelle einfügen u formatieren
07.04.2017 08:55:04
Kemmi
Hallo Hary,
danke für deine Hilfe. Ich bin nicht ganz sicher. So tief bin ich noch nicht in VBA drin.
Müsste ich das einfach so in den Code eintragen?
Meiner Userform sieht so aus:
Userbild
Und wenn man auf Vergleichen klickt werden einige Daten in ein Arbeitsblatt eingefügt.
Hier ein Teil des Codes: 
Private Sub Vergleichen_Click()
'Fügt die eingetragenen Werte ins Tabellenblatt ein und schließt das Formular KalkulatorForm
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = _
Me.TintentypCombo.Value
Und ich hätte gerne, dass die Bezeichnungen (also € usw.) sowohl in der Tabelle stehen als auch im UserForm.
Nicht alle Daten, die in das Arbeitsblatt eingetragen werden stehen vorher im Formular. Einiges wird ausgerechnet, oder aus einer Liste eingefügt.
Anzeige
AW: UserForm-Inhalte in Tabelle einfügen u formatieren
07.04.2017 09:24:04
hary
Moin
z.B. fuer Tintenkosten pro…
Rechtsclick auf die Textbox/Code anzeigen und da kommt rein: 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "0.00 €")
End Sub

Sobald du die Box verlaesst wird Formatiert in €
Fuer ml: 
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "0 ""ml""")
End Sub

Die Codezeile(n) fuer Autofit usw. schreibst du in das Ereigniss dass die Werte eintraegt.
ansonsten lad mal eine Bsp.-Mappe hoch.
gruss hary
Anzeige
UserForm-Inhalte in Tabelle einfügen u formatieren
07.04.2017 10:46:46
Kemmi
Hallo Hary,
super, vielen Dank. Das hat klasse funktioniert.
Nun ergibt sich daraus aber ein neues Problem. Ich möchte später mit diesen Werten etwas ausrechnen und habe in meinen Code Formeln eingetragen: 
ActiveSheet.Cells(intErsteLeereZeile, 11).Value = _
((CCur(Me.AnschaffungskostenTextbox.Value)) / (CDbl(Me.AFATextbox.Value))) _
/ (CDbl(Me.DruckvolumenTextbox.Value))
Nun kann er natürlich nicht rechnen, weil es keine normalen Zahlenwerte mehr sind.
Könnte ich den Code abändern, sodass er nicht den gesamten Wert der TextBox nimmt, sondern nur die Zahl, die drin steht und den Rest ignoriert?
Anzeige
AW:Vorschlag
07.04.2017 11:05:10
hary
Moin Kemmi
Die Zahlen koennte man auslesen aber: Wie waer es wenn du rechts, direkt neben den Textboxen, ein Label mit der Bezeichnung hinsetzt und den Text in der Textbox rechtsbuendig legst.
Das waer wesentlich einfacher.
gruss hary
AW: AW:Vorschlag
07.04.2017 11:53:11
Kemmi
Hallo Hary,
das sieht nicht so schön und beeindruckend aus. :)
Wie geht das denn, dass die Zahlen ausgelesen werden?
Grüße
Andrea
AW: AW:Vorschlag
07.04.2017 12:18:10
hary
Moin Andrea
So wird der Text von links bis zum Leerzeichen genommen.
123 ml
Also erst die Zahl dann ein Leerzeichen dann Bezeichnung. 
CDbl(Left(Me.AFATextbox, InStr(1, Me.AFATextbox, " ") - 1))

und das mit allen Werten.
gruss hary
Anzeige
AW: AW:Vorschlag
11.04.2017 07:20:20
Kemmi
Vielen Dank Hary,
das hat super funktioniert.
Hast mir sehr geholfen :)

312 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
Pivot-Tab: Leere ausblenden?
Florian

Hallo liebes Forum,
hätte eine Frage zu Pivottabelle (VBA-Code!):
Gibt es einen Befehl, um die Summen der "leeren" Zellen auszublenden/nicht anzuzeigen? Benutzer soll nicht durc¨h unwichtige Daten überlastet werden (siehe Bsp gelbe Zellen).
Besten Dank, Florian
https://www.herb...
19.11.2008 14:45:00
Thread-ID: 1026052
6 Beiträge
Spalten aus einem Tabellenblatt auslesen
Kiewel

Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04...
05.01.2009 16:20:25
Thread-ID: 1037009
7 Beiträge
Anzeige
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Leere zeilen ausblenden
Andreas

Hallo Forum,
mit folgendem Code lasse ich Zeile auf Inhalt prüfen und ggf. ausblenden:
Private Sub Worksheet_Activate() Dim rng As Range For Each rng In Range("A30:A47") rng.EntireRow.Hidden = rng.Value = "" Next End Sub
Bei diesem Vorgang flackert aber das Dokument einige Sekund...
03.07.2009 14:06:44
Thread-ID: 1086237
6 Beiträge
Spalten in neues Tabellenblatt kopieren
Doreen

Ich arbeite seit langem mal wieder mit Excel und hab alles vergessen :-(
Ich habe ein Tabellenblatt in dem ich alle meine Informationen pflege. Einfach verschiedene Daten (z.B. Liefertage, Lieferdateinname, Land, etc.) in Spalten runter geschrieben, ohne Bezüge - nichts, einfach nur ne Lis...
22.07.2009 11:53:21
Thread-ID: 1090482
2 Beiträge
Makro für Kopiern eine Spalte links davon einfügen
einfügen

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich möchte die Werte die ich markiert habe (die Markierung ist jedes mal anders) kopieren und eine Spalte links davon als "Werte und Zahlenformate" einfügen. Die Markierung besteht vor Ausführung des Makros. Wie bring...
28.07.2009 15:51:06
Thread-ID: 1091972
5 Beiträge
Pivottabelle Spalten berechnen
karsten

Hallo Zusammen,
ich habe folg.Frage.:
Ich habe eine Tabelle mit 2 Spalten.
1.Spalte: DATUM
2.Spalte: CODE
DATUM CODE
01.01.2009 A
08.02.2009 M
23.02.2009 C
09.08.2009 F
Wie kann ich in einer Pivottabelle die Datumsangaben bereits in Monaten eingeteilt dar...
23.09.2009 11:15:14
Thread-ID: 1104846
10 Beiträge
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
Archiv - Verwandte Themen
Forumthread
Beiträge
3
8
5
6
2
1
5
1
4
9
4
2
8
7
8
5
6
2
6
4
2
7
4
2
5