MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 18.04.2018, 21:01   #1
Dolstoi
Neuer Benutzer
Neuer Benutzer
Standard Frage - Maßangaben (LxBxH ggf. Volumen) in einheitliches Format bringen

Hallo zusammen,

ich suche fieberhaft nach einem Weg Maßangaben, welche eine unterschiedliche Quellformatierung in ein einheitliches Zielformat zu bekommen.

z. B. 12.5 cm x 10 cm x 3 cm, 4 L

Ich habe mir bisher mit einem recht einfachen Verkettungsbefehl versucht zu behelfen.

=VERKETTEN(B2;" cm x ";C2;" cm x ";D2;" cm, ";E2;" l")

nur leider funktioniert diese nur bei ganz bestimmten Quellformaten und es dauert meist länger alle Angaben dementsprechend aufzubereiten, als es manuell zu machen.

Anbei ein paar Beispiele, damit deutlicher wird, was ich meine.

Vielleicht kennt ja jemand eine ökonomische Lösung?

Grüße
Angehängte Dateien
Dateityp: xlsx Maßangaben Beispiel.xlsx (9,1 KB, 22x aufgerufen)
Dolstoi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2018, 04:42   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

Es ist die falsche Datei. Die Formel ist nicht da und das Zellformat ist auch nicht eingestellt.
Ich konnte nicht sehen wo Dein Problem ist.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2018, 08:30   #3
aloys78
MOF Meister
MOF Meister
Standard

Hallo,

Vorschlag für Format A

[G3:] =WECHSELN(B3;",";".")&" cm x "&WENN(C3<>"";WECHSELN(C3;",";".")&" cm";"")&WENN(D3<>"";" x " &WECHSELN(D3;",";".")&" cm";"")&WENN(UND(E3<>"";E3<>0);", "&WECHSELN(E3;",";".")&" L";"")

Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2018, 12:49   #4
R J
MOF Meister
MOF Meister
Standard

...ich hätte das auch noch einen, der 13 auch als 13 und nicht als 13.0 ausgibt.

Diesen Code in ein allgemeines Modul einfügen:
Code:

Option Explicit

Function Maße(rng As Range) As String
'Von Spalte B ausgehend. Zeile wird aus dem Parameterrange ermittelt. Funktionsaufruf z. Bsp. für Anpassung der Maße aus Zeile 3: = Maße(B3")
Dim L$, B$, H$, LI$, ret$, x As Byte
On Error Resume Next
With Tabelle1

    For x = 2 To 4
        ret = ret & Ausgabe(CStr(.Cells(rng.Row, x)))
        If InStr(1, rng, "x") > 0 Then GoTo Fertig
    Next x
    ret = IIf(InStr(1, rng, "x") > 0, rng, Left(ret, Len(ret) - 3) & Ausgabe(CStr(.Cells(rng.Row, 5)), True))
End With
Fertig:
Err.Clear
Maße = ret
End Function

Function Ausgabe(zahl As String, Optional Liter As Boolean = False) As String
    Dim komma As Byte, punkt As Byte, istNull As Boolean, ret As String, lastKomma As Byte
    komma = InStr(1, zahl, ",")
    punkt = InStr(1, zahl, ".")
    ret = zahl
    If zahl = "0" Or zahl = "" Or IsEmpty(zahl) Then ret = "": GoTo Sprung
    If InStr(1, zahl, "x") > 0 Then
        If VBA.Right(zahl, 1) = "L" Then
            lastKomma = InStrRev(zahl, "cm") - 2
            ret = Replace(Left(zahl, lastKomma + 1), ",", ".") & VBA.Right(zahl, lastKomma)
        Else
            ret = Replace(zahl, ",", ".")
        End If
        GoTo Sprung
    End If
    If komma > 0 Then
        If CInt(Mid(zahl, komma + 1)) > 0 Then
            ret = Replace(zahl, ",", ".")
        Else
            ret = Left(zahl, komma - 1)
        End If
    End If
    If punkt > 0 Then
        If CInt(Mid(zahl, punkt + 1)) = 0 Then
            ret = Left(zahl, punkt - 1)
        Else
            ret = zahl
        End If
    End If
    ret = IIf(Liter, ", " & ret & "L", ret & " cm x ")
Sprung:
    Ausgabe = ret
End Function

__________________

Ciao, Ralf

Kommt mir irgendwie bekannt vor...
Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.



Geändert von R J (19.04.2018 um 13:56 Uhr).
R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.04.2018, 10:30   #5
Dolstoi
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Zitat: von Hajo_Zi Beitrag anzeigen

Es ist die falsche Datei. Die Formel ist nicht da und das Zellformat ist auch nicht eingestellt.
Ich konnte nicht sehen wo Dein Problem ist.

GrußformelHomepage

Anbei die aktualisierte Datei mit der verwendeten Formel in Grün, ich hoffe, dass damit klar wird was ich meine, dass ich aktuell die Daten um die Formel zu benutzen immer anpassen muss.
Angehängte Dateien
Dateityp: xlsx Maßangaben Beispiel aktualisiert.xlsx (9,6 KB, 7x aufgerufen)
Dolstoi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.05.2018, 22:15   #6
Dolstoi
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Zitat: von aloys78 Beitrag anzeigen

Hallo,

Vorschlag für Format A

[G3:] =WECHSELN(B3;",";".")&" cm x "&WENN(C3<>"";WECHSELN(C3;",";".")&" cm";"")&WENN(D3<>"";" x " &WECHSELN(D3;",";".")&" cm";"")&WENN(UND(E3<>"";E3<>0);", "&WECHSELN(E3;",";".")&" L";"")

Gruß
Aloys

Danke, das hat mir schon sehr weiter geholfen.
Dolstoi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:30 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.