ich benötige einen Makrobefehl, welcher mehrere Zellen aus unterschiedlichen Tabellenblättern prüft und dementsprechend eine Zelle entweder beschreibt oder leer lässt.
Kann mir hier jemand helfen?
mfg
Hans
Sub Makrobefehl()
with worksheets("Tabelle1")
if .cells(1,2) ="" and .cells(2,2)="" then
.cells(3,2)="Eh ich hab keine Ahnung was ich hier machen soll"
End if
End with
end sub
Sub Makro_test()
' Formel für Zelle A1 und C1 = leer
' =WENN(UND(Tabelle2!A1="";Tabelle2!C1="")=WAHR;"hallo";"")
' Formel in Zelle A1 schreiben
Worksheets("Tabelle1").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(Tabelle2!RC="""",Tabelle2!RC[2]="""")=TRUE,""hallo, was ist los ?"","""")"
' Spalte A bis Zeile 20 mit Formel auffüllen
Selection.AutoFill Destination:=Range("A1:A20")
Range("A1:A20").Select
Application.CutCopyMode = False
Selection.Copy
End Sub
Aber da gibt es soviele Möglichkeiten an Formeln. ( Das dauert bis man wenigstens einigermassen durchblickt).