Bereiche



Excel-Version: 2000
nach unten

Betrifft: Bereiche
von: Tina
Geschrieben am: 12.04.2002 - 19:58:46

Hallo Ihr!
Wie kann ich denn die erste Zeile eines mit Selection markierten Bereiches auswählen und dannach die zweite Zeile, usw. wenn die Zeilennummern nicht fortlaufend sind ohne die Zeilennummer anzugeben.. (Also erste Zeile=1, Zweite=5)

nach oben   nach unten

Re: Bereiche
von: Hajo
Geschrieben am: 12.04.2002 - 20:16:04

Hallo Tina

was willst Du machen. Das ist mir nicht klar. Hier aber ein Beispiel in dem alle markierten Zellen die keine Formel enthalten umgerechnet werden.


Sub Umrechnen_nur_Euro()
    Const Eurokurs = 1.95583
    Dim As Range
    Dim Waehrung As String
    For Each Z In Selection
        If Not (Z.HasFormula) Then
            If Z.Value <> "" And IsNumeric(Z.Value) Then
                Z.NumberFormat = "#,##0.00 €"
                Z.Value = Application.WorksheetFunction.Round(Z.Value / Eurokurs, 2)
            End If
        Else
            Z.NumberFormat = "#,##0.00 €"
        End If
    Next
End Sub

Gruß Hajo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Bereiche"