Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formelergebnisse in Wert umwandeln

Formelergebnisse in Wert umwandeln
08.01.2014 13:50:35
Martin
Hallo,
ich habe in Tabellenblatt 2 von B1 bis B1000 Formel mit Bezug auf Tabellenblatt 1 D1:D1000 stehen. Nun möchte ich in Tabellenblatt 2 Spalte B die Zellen in Werte umrechnen, bei denen bereits ein Formelergebnis vorliegt. In alle anderen Zellen in Spalte B mit Formeln ohne sichtbarem Ergebnis soll die Formel aber drin bleiben also keine Umwandlung in wert erfolgen.
Hat den jemand eine Idee wie man das mit VBA umsetzen kann ?
Danke schon mal für Eure Hilfe.
Gruß
martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formelergebnisse in Wert umwandeln
08.01.2014 16:20:54
fcs
Hallo Martin,
Makro sollte etwa wie folgt aussehen.
Gruß
Franz
Sub Formel_durch_Wert()
Dim wks As Worksheet, Zelle As Range
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
For Each Zelle In .Range(.Cells(1, 2), _
.Cells(.Rows.Count, 2).End(xlUp)).Cells '.Range(B1:B1000")
With Zelle
If .HasFormula = True Then
If .Value  "" Then 'oder ander nicht angezeigter Wert
.Value = .Value
End If
End If
End With
Next Zelle
Application.ScreenUpdating = True
End With
End Sub

Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige