ich habe folgenden Code, mit dem ich alle Zahlwerte in der Mappe umrechnen lasse (Die Umrechnung erfolgt über eine Textboxeingabe, deren Wert in eine Zelle übergeben wird, z.b. H1=2,15):
Sub Umrechnen()
Range("H1").Value = TextBox1.Text
Worksheets("Tabelle1).Range("A1:N100").Select
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.HasFormula = True Or IsNumeric(Zelle) = False Or IsEmpty(Zelle) Or IsDate(Zelle) Then
Else
Zelle = Zelle * H1
End If
If IsEmpty(Zelle) Or IsDate(Zelle) Then
Else
End If
Next Zelle
Worksheets("Tabelle1").Range("A1").Select
End Sub
Bisher war es mir immer nur möglich eine einzige Tabelle mit einem bestimmten Bereich anzusprechen. Wie kann ich aber alle Tabellen z.b. mit dem Bereich A1:N100 markieren und am Ende der Umrechnung die Markierung wieder auflösen?
Markiert habe ich bisher so (allerdings eben nur eine Tabelle):
Worksheets("Tabelle1).Range("A1:N100").Select
Und das ganze wieder aufgelöst mit:
Worksheets("Tabelle1").Range("A1").Select
Ich habe es auch schon mit dem Makrorekorder versucht und alle Tabellen+Bereich markiert, allerdings stimmt dann meine Umrechnung nicht mehr, da er dann jeden Wert so oft mit 2,15 multipliziert wie ich Tabellen angegeben habe.
Gruß
Kira