Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen mit Formeln ausschließen

Zellen mit Formeln ausschließen
08.08.2007 14:08:00
C.
Gute Tag zusammen. Ich habe folgendes Problem. Mit einem Makro errechne ich in einer Spalte aus EuroPreisen den DollarWert. Jedoch stehen in manchen Zellen keine Werte, sondern die Ergebnisse von mehreren anderen Zellen. Wenn ich also das Makro laufen lassen rechnet er die betreffende Zelle im Prinzip 2mal um. Ich will also, dass das Makro erkennt, ob in einer Zelle eine Formel verwendet wird - und wenn, dann soll diese Zelle nicht berücksichtigt werden.
Hier das Makro
Dim wks As Worksheet, iSpalte%, lngZeile&, dblKurs#
Set wks = ActiveSheet
iSpalte = 2 'Spalte mit den Angaben in Euro
dblKurs = ActiveSheet.Range("M43").Value
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Formeln ausschließen
08.08.2007 14:15:00
Hajo_Zi
Hallo Unbekannter,
If Not (.Cells(lngZeile, iSpalte).HasFormula) Then

AW: Zellen mit Formeln ausschließen
08.08.2007 14:18:00
Rudi
Hallo,

Sub tt()
Dim wks As Worksheet, iSpalte%, dblKurs#, rngTmp As Range
Set wks = ActiveSheet
iSpalte = 2 'Spalte mit den Angaben in Euro
dblKurs = ActiveSheet.Range("M43").Value
With wks
For Each rngTmp In .Columns(iSpalte).SpecialCells(xlCellTypeConstants)
rngTmp = rngTmp * dblKurs
Next
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Zellen mit Formeln ausschließen
08.08.2007 14:24:30
IngGi
Hallo C.K.,
versuch's mal damit:

Sub EuroZuDollar()
Range("B:B").SpecialCells(xlCellTypeConstants, xlNumbers) = _
Range("B:B").SpecialCells(xlCellTypeConstants, xlNumbers) * Range("M43")
End Sub

Gruß Ingolf

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige