VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Umwandlung von Zeichenfolgen in Werte

Gruppe

Allgemein

Bereich

Arbeitsblatt

Thema

Umwandlung von Zeichenfolgen in Werte

Problem

Die Zeichenfolgen aus dem Bereich B4:B10 sollen unter Berücksichtigung der Minuszeichen in Werte umgewandelt werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub GetMinus()
   Dim wks As Worksheet
   Dim rng As Range
   For Each wks In Worksheets
      Cells.Replace ".", "µ"
      Cells.Replace ",", "."
      Cells.Replace "µ", ","
      For Each rng In wks.UsedRange
         If Not IsEmpty(rng) Then
            If IsNumeric(Left(rng.Value, Len(rng.Value) - 1)) And _
               Right(rng.Value, 1) = "-" Then
               rng.Formula = "-" & _
               WorksheetFunction.Substitute(rng.Value, "-", "")
            End If
         End If
      Next rng
   Next wks
   MsgBox "Job erledigt!"
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt