Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon derby vom 27.05.2021, 14:26 Options

VBA EXCEL - Zellinhalt formatieren und ausgeben

Hallo Zusammen,

ich hab ein Problem mit excel vba programmierung.

ich habe in einer spalte einige, ab zelle D2 bis ende datensatz, verschiendene alpha nummerische Zeichen. bsp. 0.65mm². ich brauche einen vba code, der diese zelle ausliest, von rechts an und bis zur ersten zahl den rest abschneidet. aber in genau dieser zelle D2. dann auch wiedergibt. ergebnis sollte so aussehen 0.65. es darf nicht nur auf mm² zurückgegriffen werden, da es noch weitere, verschiedene Buchstaben anhaften können.
Ich verzweifel langsam, da ich schon vieles versucht habe, es aber nicht schaffe. Für jede Hilfe wäre ich echt dankbar

Antwort schreiben

Antwort 1 von rainberg vom 27.05.2021, 16:39 Options

Hallo Derby,

hilft Dir dieser Ansatz?

Linksklick in die relevante Zelle schneidet die Dimension ab.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim strAlt As String, strNeu As String, intI As Integer
    strAlt = Target.Value
    For intI = 1 To Len(strAlt)
        If Asc(Mid(strAlt, intI, 1)) >= 46 And Asc(Mid(strAlt, intI, 1)) <= 57 Then
            strNeu = strNeu & Mid(strAlt, intI, 1)
        Else
            Exit For
        End If
    Next
    Target.Value = Val(strNeu)
End Sub

Gruß
Rainer

Antwort 2 von derby vom 27.05.2021, 17:27 Options

Hallo Rainer,

die Idee mit dem <= werde ich gleich mal ausprobieren. ansonsten sieht es leider wie eine der vielen verschiedenen Varianten aus, die ich schon ausprobiert habe.
Aber schon mal Danke dafür das du dir die Mühe gemacht hast.

Gruß
Derby

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken