Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Umrechnungvon Masseinheiten

Automatische Umrechnungvon Masseinheiten
10.02.2008 19:21:53
Masseinheiten
Guten Abend
und wieder hab ich ein Problem :
In C2 wird eine Länge 1 in D2 eine Länge 2 eingegeben . E2 ist ein Dropdwonfeld mit drei Einträgen m , cm und mm . Ausgabe des Ergebnisses in F2 . Die Standartmasseingabe in C2 und D2 ist in mm . bei jeweiliger Auswahl in E2 sollen die Eingabewerte in C2 und D2 automatisch umgerechnet werden . Das gleiche bei dem Ergebnis in F2
wer kann mir helfen
MfG Holger

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Umrechnungvon Masseinheiten
10.02.2008 19:46:00
Masseinheiten
Hi
du musst dir ne kleine Hilfstabelle anlegen, in der zu den Maßeinheiten die Umrechenfaktoren hinterlegt sind.
die passenden Werte holst du dann über den SVEREWEIS.
Guckst du Beispiel
https://www.herber.de/bbs/user/49796.xls
Gruß, Daniel

AW: Automatische Umrechnungvon Masseinheiten
10.02.2008 20:19:00
Masseinheiten
Hallo Daniel
Danke für den Tipp
werd es ausprobieren
Gruss Holger

AW: Automatische Umrechnungvon Masseinheiten
10.02.2008 21:09:00
Masseinheiten
Guten Abend Holger,
oder du nimmst eine Combobox für die Maßeinheiten u. stellst diesen Code ins Modul der Tabelle.

Private Sub ComboBox1_Change()
Static strOldUnit As String, dblFaktor As Double
If strOldUnit = "" Then strOldUnit = "mm"
dblFaktor = 1
With ComboBox1
Select Case strOldUnit
Case "mm"
If .Value = "cm" Then dblFaktor = 0.01
If .Value = "m" Then dblFaktor = 0.001
Case "cm"
If .Value = "m" Then dblFaktor = 0.01
If .Value = "mm" Then dblFaktor = 10
Case "m"
If .Value = "cm" Then dblFaktor = 100
If .Value = "mm" Then dblFaktor = 1000
End Select
strOldUnit = .Value
End With
Range("C2").Value = Range("C2").Value * dblFaktor
Range("D2").Value = Range("D2").Value * dblFaktor
End Sub


Gruß Gerd

Anzeige
AW: Korrektur-Autom. Umrechnungvon Masseinheiten
10.02.2008 21:41:00
Masseinheiten
Hallo,
ich hatte schon lange nix mehr gemessen :-) 

Private Sub ComboBox1_Change()
Static strOldUnit As String, dblFaktor As Double
If strOldUnit = "" Then strOldUnit = "mm"
dblFaktor = 1
With ComboBox1
Select Case strOldUnit
Case "mm"
If .Value = "cm" Then dblFaktor = 0.1
If .Value = "m" Then dblFaktor = 0.001
Case "cm"
If .Value = "m" Then dblFaktor = 0.01
If .Value = "mm" Then dblFaktor = 10
Case "m"
If .Value = "cm" Then dblFaktor = 100
If .Value = "mm" Then dblFaktor = 1000
End Select
strOldUnit = .Value
End With
Range("C2").Value = Range("C2").Value * dblFaktor
Range("D2").Value = Range("D2").Value * dblFaktor
End Sub


Gruß Gerd

Anzeige

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige