title image


Smiley Re: Daten in Excel über mehrere Blätter verteilt, ein einem zusammenfassen
Hallo,















Sub Tabelle_kopieren_Formeln_entfernen()  

Dim Zelle As Range  



Sheets("Tabelle1").Copy



For Each Zelle In ActiveWorkbook.ActiveSheet.UsedRange    

 

'prüfen ob Zelle eine Formel enthält

  If Zelle.HasFormula = True Then    

    Zelle = Zelle.Value

  End If  

 

Next Zelle



End Sub  









Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: