makro zum löschen von einträgen im exel

bulleschulz · 02.03.2005

hallo erstmal

ich würde gern ein makro schreiben mit dem ich aus einem exel alle $ zeichen entfernen kann. leider habe ich keine ahnung von macros und brauche deshalb eine erklährung für dummis wie mich.

viellen dank für eure mühe

brian

Matjes · 02.03.2005

Hallo bulleschulz,

in welchem Zusammenhang stehen denn die $-Zeichen ?
- als Text
- als absoluter Bezug in Formeln
- oder ... ?

Der folgende Makro radiert die $-Zeichen aus Values und Formeln.

Code:

Public Sub AlleDollarsAufBlattLoeschen()
 ->auf dem aktiven Blatt $ in Formeln und Values löschen
  Cells.Replace _
        What:=$, _
        Replacement:=, _
        LookAt:=xlPart
End Sub

Makro schreiben:
1) neu Excel-Datei öffnen
2) VB-Ediotr öffnen Alt+F11
Links siehst Du ein Fenster mit der Überschrift Projekt-VBA-Project.
In diesem Fenster ist die neue Arbeitsmappe unter dem Namen VBAProject(Mappe1) zu finden.
3) VBA-Modul anlegen mit
3a) VBAProject(Mappe1) mit der Maus selektieren
3b) rechte Maustaste -> Einfügen -> Modul
in der Mitte geht das Code-Fenster Mappe1-Modul1(Code) auf
4) den gesamten Code per copy und Paste in dieses Fenster hineinkopieren
5) VB-Editor schliessen mit Alt+Q
6) Excel-Datei speichern, z.B. als->MyMakros.xls'

Wenn die Datei geöffnet ist kannst Du den Makro mit Alt+F8->AlleDollarsAufBlattLoeschen->Ausführen aufrufen.

Gruß Matjes

bulleschulz · 02.03.2005

also

der wert wurde händisch in eine zelle mit zahlen eingetragen. zb $320.78.

leider ist das ca. 100 mal der fall in einem langen .xls

danke für die hilfe

bulleschulz · 02.03.2005

wow!

super hat funktioniert.

danke danke danke.

kann man das auch so einrichten das das makro nur in den makierten bereichen das $ löscht?

danke nochmal für dein schnelle hilfe

brian

Matjes · 02.03.2005

Hallo bulleschulz,

der Makro oben löscht auch in Formeln das Dollar-Zeichen - nur um das nochmal zu erwähnen.

Folgender Makro löscht das $-Zeichen nur in Zellen ohne Formel und auch nicht in Formeln.

gruß Matjes

Code:

Sub NurInValuesImMarkiertenBereichAlleDollarsAufBlattLoeschen()
 ->$ nur in Values ersetzen
  Const c_Suchbegriff As String = $
  Dim Zelle As Range, r As Range
  Dim s_tmp As String, pos1 As Long, s_Formel As String
  Dim ErsterFundort As String
  
  Set r = Selection
  Set Zelle = r.Find(c_Suchbegriff, LookIn:=xlValues, LookAt:=xlPart)
  If Not Zelle Is Nothing Then
    ErsterFundort = Zelle.Address
    Do While Not Zelle Is Nothing And Zelle.Address &lt;> ErsterFundort
      s_Formel = Zelle.Formula
     ->nicht in Formeln löschen
      If Left(s_Formel, 1) &lt;> = Then
        s_tmp = Zelle.Value
        pos1 = InStr(1, s_tmp, c_Suchbegriff)
        s_tmp = Left(s_tmp, pos1 - 1) &amp; Right(s_tmp, Len(s_tmp) - pos1)
        Zelle.Value = s_tmp
        ErsterFundort = 
      End If
      Set Zelle = r.FindNext
      If Zelle Is Nothing Then Exit Do
      If ErsterFundort =  Then
        ErsterFundort = Zelle.Address
      ElseIf Zelle.Address = ErsterFundort Then
        Exit Do
      End If
    Loop
  End If
  Set r = Nothing: Set Zelle = Nothing
End Sub

makro zum löschen von einträgen im exel

bulleschulz

Matjes

bulleschulz

bulleschulz

Matjes

makro zum löschen von einträgen im exel

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums