Formatierung

Forumthread: Formatierung
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Formatierung

Formatierung

22.05.2025 13:55:43

curry

Hallo,

ich habe eine Liste aus einem Buchhaltungsprogramm in der die Werte in der Zelle mit "H" oder "S" , wie z.B. "23,91 S" enden.

Ich muss nun diesen Wert in eine andere Liste übertragen, in der er dann berechnet wird. Was muss ich tun, damit dieser Wert berechenbar wird (wenn das überhaupt geht?)?

Es wäre sehr schön wenn sich jemand dieser Sache annehmen würde und ich bedanke mich jetzt schon einmal für die Hilfe.

Viele Grüße
Bernd

https://www.herber.de/bbs/user/177531.xlsx

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formatierung

22.05.2025 14:02:26

BoskoBiati
AW: Formatierung

22.05.2025 15:30:48

{Boris}
AW: Formatierung

22.05.2025 16:43:57

BoskoBiati
AW: Formatierung

22.05.2025 15:45:24

UweD
Eventuell...

22.05.2025 15:57:05

Case
AW: Eventuell...

22.05.2025 17:19:22

curry

AW: Formatierung

22.05.2025 14:02:26

BoskoBiati

Hi,

am einfachsten wohl mit Suchen/Ersetzen, aber Leerzeichen gleich mit ersetzen!

Gruß

Edgar

AW: Formatierung

22.05.2025 15:30:48

{Boris}

Hi,

schreib in J1:

=WENNFEHLER(--WENN(RECHTS(D1)="s";-TEXTVOR(D1;"S");TEXTVOR(D1;"H"));0)

kopier das sowohl bis N1 als auch nach unten.

VG; Boris

AW: Formatierung

22.05.2025 16:43:57

BoskoBiati

Hi,

oder auch so:

=WENNFEHLER(TEXTVOR(D1;" ")*(1-(RECHTS(D1;1)="s")*2);0)

Gruß

Edgar

AW: Formatierung

22.05.2025 15:45:24

UweD

Hallo

Evtl. mit dieser VBA Lösung.

Müssten die S Positionen nicht dann auch einen Vorzeichenwechsel bekommen?



Sub SH()

    Dim RNG As Range, Zelle As Range

    On Error Resume Next

    Set RNG = ThisWorkbook.ActiveSheet.Range("D:G").SpecialCells(xlCellTypeConstants, 2) 'Nur Zellen mit Text

    On Error GoTo 0

    

    If Not RNG Is Nothing Then

        For Each Zelle In RNG

            If Right(Zelle, 1) = "H" Then

                Zelle.Value = --Trim(Replace(Zelle, "H", ""))

                Zelle.NumberFormat = "0.00"

            ElseIf Right(Zelle, 1) = "S" Then

                Zelle.Value = -Trim(Replace(Zelle, "S", ""))

                Zelle.NumberFormat = "0.00"

            End If

        Next Zelle

    End If



End Sub