fehler im macro (währungsrechner)
05.07.2007 10:07:00
C
Hab hier ein macro (hab ich mal von "euch" bekommen :P), das alle Werte bestimmter Spalten umrechnen soll. Leider zeigt er mir an, dass eine Zeile fehlerhaft ist.
Hier das Makro:
Sub Schaltfläche2_BeiKlick_no_outputbox_multi_spalten()
Dim wks As Worksheet, iSpalte%, lngZeile&, dblKurs#, arrSpalte
Set wks = ActiveSheet
arrSpalte = Array(4, 5, 7) 'Spalten mit den Angaben in Dollar
dblKurs = CDbl(InputBox("Wechselkurs USD/EUR?", "USD in EUR umrechnen", "1,30"))
With wks
For iSpalte = 0 To UBound(arrSpalte)
For lngZeile = 1 To .Cells(.Rows.Count, iSpalte).End(xlUp).Row
Hab dummerweise nicht viel Ahnung von VBA. Wäre schön wenn ihr mir weiterhelfen könnten.
Vielen Dank schonma :)
Anzeige