| VBA-Beispiel 046 | |
|
|
prüfen ob Zelle eine Formel enthält |
|
| Dieses Makro prüft ob die Zelle links von der aktiven Zelle eine Formel enthält. Wenn ja, wird die Formel mit einem führenden Leerzeichen, in die aktive Zelle eingetragen. | |
|
Sub Zelle_auf_Formel_pruefen() Dim Zelle As Object ' prüfen ob aktive Zelle in Spalte A If ActiveCell.Column = 1 Then MsgBox "links von Spalte A gibt es keine Zellen" Else ' Zelle die auf Formel geprüft werden soll Set Zelle = ActiveCell.Offset(0, -1) ' prüfen ob links eine Formel steht If Zelle.HasFormula = True Then ' dann Formel aus linker Zelle in aktive Zelle eintragen ActiveCell = " " & ActiveCell.Offset(0, -1).Formula Else MsgBox "Zelle " & Zelle.Address & " enthält keine Formel" End If End If Set Zelle = Nothing End Sub |
|
| Dieses Makro färbt alle Zellen die eine Formel haben gün. | |
|
Sub alle_Formeln_finden() 'alle Zellen mit einer Formel gün färben Dim Zelle As Range For Each Zelle In UsedRange If Zelle.HasFormula = True Then Zelle.Interior.ColorIndex = 35 End If Next Zelle End Sub |
|
|
Download: vba046.zip |
|
relevante Links:
|
|
| |