makro soll mehrere zellen ansprechen, statt einer
27.06.2007 13:26:00
C
ihr habt mir vor ein paar stunden bei einem Problem geholfen.
dabei kam folgendes makro raus:
Sub USDinEUR()
Dim wks As Worksheet, iSpalte%, lngZeile&, dblKurs#
Set wks = ActiveSheet
iSpalte = 4 'Spalte mit den Angaben in Dollar
dblKurs = CDbl(InputBox("Wechselkurs USD/EUR?", "USD in EUR umrechnen", "1,30"))
With wks
For lngZeile = 1 To .Cells(.Rows.Count, iSpalte).End(xlUp).Row
If (Not IsEmpty(.Cells(lngZeile, iSpalte))) _
And IsNumeric(.Cells(lngZeile, iSpalte)) Then
.Cells(lngZeile, iSpalte).Value = .Cells(lngZeile, iSpalte) / dblKurs
End If
Next
End With
End Sub
das makro ist ein währungsrechner, der alle werte einer kompletten spalte umrechnet. es funktioniert echt gut. jetzt ist meine frage allerdings, wie ich mehrere spalten "ansprechen" kann, statt nur eine. was muss ich genau umschreiben, wenn ich z.B neben der spalte 4 auch spalte 5 und 7 umrechnen möchte.
vielen dank im voraus
Anzeige