An akiem wegen Euro in Excel

Dieses Thema im Forum "Software" wurde erstellt von Blaubeere, 29. Mai 2001.

  1. Blaubeere

    Blaubeere Active Member

    Hallo akiem,

    Du hast vorhin in einem Beitrag erwähnt, dass ihr in eurer Firma problemlos DM in Euro konvertiert hättet. Kannst Du mir sagen wie? Wo bekomme ich dieses Euro konvert her? War das in Excel 98 oder 2001 (ich habe noch Excel 98)?

    Vielen Dank im voraus

    Blaubeere
     
  2. Blaubeere

    Blaubeere Active Member

    bewusst verzichtet, weil dieses Makro ohnehin in bereits
    ' fertig formatierten Tabellen eingesetzt wird.

    Dim Zelle As Range
    Dim DM As Double
    Dim Euro As Double
    Dim ZeilenAnzahl As Integer
    Dim Bereich As String

    Bereich = Selection.Address
    ZeilenAnzahl = Selection.Rows.Count

    For Each Zelle In Selection
    If Zelle.Interior.ColorIndex <> 27 Then
    DM = Zelle.Value
    Euro = DM / 1.95583
    Zelle.Value = Euro
    Zelle.Interior.ColorIndex = 27
    End If
    Next Zelle

    Range(Bereich).Resize(1, 1).Select
    Selection.Offset(ZeilenAnzahl, 0).Select

    End Sub

    >>>>>>>>>>>>>>>>>>>>>>>>>
     
  3. Blaubeere

    Blaubeere Active Member

    Hallo akiem,

    Du hast vorhin in einem Beitrag erwähnt, dass ihr in eurer Firma problemlos DM in Euro konvertiert hättet. Kannst Du mir sagen wie? Wo bekomme ich dieses Euro konvert her? War das in Excel 98 oder 2001 (ich habe noch Excel 98)?

    Vielen Dank im voraus

    Blaubeere
     
  4. Blaubeere

    Blaubeere Active Member

    Hallo akiem,

    Du hast vorhin in einem Beitrag erwähnt, dass ihr in eurer Firma problemlos DM in Euro konvertiert hättet. Kannst Du mir sagen wie? Wo bekomme ich dieses Euro konvert her? War das in Excel 98 oder 2001 (ich habe noch Excel 98)?

    Vielen Dank im voraus

    Blaubeere
     
  5. Blaubeere

    Blaubeere Active Member

    bewusst verzichtet, weil dieses Makro ohnehin in bereits
    ' fertig formatierten Tabellen eingesetzt wird.

    Dim Zelle As Range
    Dim DM As Double
    Dim Euro As Double
    Dim ZeilenAnzahl As Integer
    Dim Bereich As String

    Bereich = Selection.Address
    ZeilenAnzahl = Selection.Rows.Count

    For Each Zelle In Selection
    If Zelle.Interior.ColorIndex <> 27 Then
    DM = Zelle.Value
    Euro = DM / 1.95583
    Zelle.Value = Euro
    Zelle.Interior.ColorIndex = 27
    End If
    Next Zelle

    Range(Bereich).Resize(1, 1).Select
    Selection.Offset(ZeilenAnzahl, 0).Select

    End Sub

    >>>>>>>>>>>>>>>>>>>>>>>>>
     

Diese Seite empfehlen