Also ich möchte eine If frage machen
komm nur grad nicht weiter kann mir pls jemand helfen?
also:
Wenn in eine bestimmte zelle nicht leer ist dann soll in eine andere zelle von zwei anderen zellen entwas hinnein kopiert werden… verstandne?
ich habe schon seit einigen monaten mich nicht mehr damit beschäftigt das wäre spitze wenn ihr mir kurz helfen könnt anpassen und erweiter dass das 300 mahl geht schaff ich selber nur das halt nicht mehr brauche eure HIlfe danke
euer SirShooter
Wenn in eine bestimmte zelle nicht leer ist dann soll in eine
andere zelle von zwei anderen zellen entwas hinnein kopiert
werden… verstandne?
Hallo SirShooter,
einfach mit der folgenden if-Abfrage:
If (Range(„H3“).FormulaR1C1 „“) Then
Range(„I3“).FormulaR1C1 = Range(„J3“).FormulaR1C1 + Range(„K3“).FormulaR1C1
End If
Falls H3 nicht leer ist, wird der Inhalt von J3 und K3 zusammengehängt und in I3 geschrieben.
Ich hoffe, das hilft dir!
Grüße
hi danke! du hast mir super geholfen funkt alles ist einfach perfeckt
hab grad noch ne andere Frage entdeckt…
ich möchte zwei zeilen ausblenden, wenn eine bestimmte zelle leer ist und diese wieder einblendne in sovern die Zelle wieder voll ist…
=> die zelle auf die es sich bezieht habe ich ganz einfach mit =xy gemacht d.h. schreib ich in xy was hinnein so bekommt es auch die zelle…
danke nomal für alllllllllllleeeeeeeeees
ich möchte zwei zeilen ausblenden, wenn eine bestimmte zelle
leer ist und diese wieder einblendne in sovern die Zelle
wieder voll ist…
Das kannst ganz einfach mit folgender Prozedur machen:
Private Sub Worksheet_Change(ByVal Target As Range)
If (Range(„A1“).FormulaR1C1 „“) Then
Rows(„3:4“).Select
Selection.RowHeight = 17
Else
Rows(„3:4“).Select
Selection.RowHeight = 0
End If
End Sub
Das muss auf dem betroffenen Arbeitsblatt eingefügt werden, dann rennt es bei jeder Änderung los. Für deine Belange halt abändern.
Gruß
Hallo SirShooter,
Versuch es mal mit folgender Formel:
=WENN(A1="";"";B1&C1)
Dabei ist A1 die leere/nicht leere Zelle, B1 und C1 werden kopiert und zwar in die Zelle, in der die Formel steht. Ist A1 leer, wird nichts kopiert, steht irgendetwas in A1 wird kopiert.
Grüße von
Kurt
Entschuldigung, aber könntest Du Dich etwas detailierter auslassen?
Du kannst einen Eintrag der einen Zelle normal in eine andere Zelle kopieren. Dabei geht aber der Eintrag der 2. Zelle verloren. Wenn Du aber mit dem Mauszeiger den Eintrag in der ersten Zelle markierst und auf Kopieren gehst, kannst Du diesen hinter oder vor den Eintrag in der 2. Zelle setzen, wenn Du den Anzeiger dort plazierst.
Ich hoffe, das war Dein Problem!
Gruß PC-Quäler
Hallo SirShooter
Ich kann in einer Tabelle falls ein Wert in einer Zelle steht und die beiden anderen Werte von verschiedenen Zellen eingefügt werden sollen folgende Formel setzten
Wenn (B1>0; B2+B3;"")
Loki1661
So ich bin jetzt so weit stimmt aber nicht^^ was hab ich falsch gemacht? kann mir pls einer helfen?
Sub Einteilung()
If (Range(„Tabelle1.F5“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B5“).FormulaR1C1 + Range(„Tabelle1.C5“).FormulaR1C1
End If
If (Range(„Tabelle1.F6“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B6“).FormulaR1C1 + Range(„Tabelle1.C6“).FormulaR1C1
End If
If (Range(„Tabelle1.F7“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B7“).FormulaR1C1 + Range(„Tabelle1.C7“).FormulaR1C1
End If
If (Range(„Tabelle1.F8“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B8“).FormulaR1C1 + Range(„Tabelle1.C8“).FormulaR1C1
End If
If (Range(„Tabelle1.F9“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B9“).FormulaR1C1 + Range(„Tabelle1.C9“).FormulaR1C1
End If
If (Range(„Tabelle1.F10“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B10“).FormulaR1C1 + Range(„Tabelle1.C10“).FormulaR1C1
End If
If (Range(„Tabelle1.F11“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B11“).FormulaR1C1 + Range(„Tabelle1.C11“).FormulaR1C1
End If
If (Range(„Tabelle1.F12“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B12“).FormulaR1C1 + Range(„Tabelle1.C12“).FormulaR1C1
End If
If (Range(„Tabelle1.F13“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B13“).FormulaR1C1 + Range(„Tabelle1.C13“).FormulaR1C1
End If
If (Range(„Tabelle1.F14“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B14“).FormulaR1C1 + Range(„Tabelle1.C14“).FormulaR1C1
End If
If (Range(„Tabelle1.F15“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B15“).FormulaR1C1 + Range(„Tabelle1.C15“).FormulaR1C1
End If
If (Range(„Tabelle1.F16“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B16“).FormulaR1C1 + Range(„Tabelle1.C16“).FormulaR1C1
End If
If (Range(„Tabelle1.F17“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B17“).FormulaR1C1 + Range(„Tabelle1.C17“).FormulaR1C1
End If
If (Range(„Tabelle1.F18“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B18“).FormulaR1C1 + Range(„Tabelle1.C18“).FormulaR1C1
End If
If (Range(„Tabelle1.F19“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B19“).FormulaR1C1 + Range(„Tabelle1.C19“).FormulaR1C1
End If
If (Range(„Tabelle1.F20“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B20“).FormulaR1C1 + Range(„Tabelle1.C20“).FormulaR1C1
End If
If (Range(„Tabelle1.F21“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B21“).FormulaR1C1 + Range(„Tabelle1.C21“).FormulaR1C1
End If
If (Range(„Tabelle1.F22“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B22“).FormulaR1C1 + Range(„Tabelle1.C22“).FormulaR1C1
End If
If (Range(„Tabelle1.F23“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B23“).FormulaR1C1 + Range(„Tabelle1.C23“).FormulaR1C1
End If
If (Range(„Tabelle1.F24“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B24“).FormulaR1C1 + Range(„Tabelle1.C24“).FormulaR1C1
End If
If (Range(„Tabelle1.F25“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B25“).FormulaR1C1 + Range(„Tabelle1.C25“).FormulaR1C1
End If
If (Range(„Tabelle1.F26“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B26“).FormulaR1C1 + Range(„Tabelle1.C26“).FormulaR1C1
End If
If (Range(„Tabelle1.F27“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B27“).FormulaR1C1 + Range(„Tabelle1.C27“).FormulaR1C1
End If
If (Range(„Tabelle1.F28“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B28“).FormulaR1C1 + Range(„Tabelle1.C28“).FormulaR1C1
End If
If (Range(„Tabelle1.F29“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B29“).FormulaR1C1 + Range(„Tabelle1.C29“).FormulaR1C1
End If
If (Range(„Tabelle1.F30“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B30“).FormulaR1C1 + Range(„Tabelle1.C30“).FormulaR1C1
End If
If (Range(„Tabelle1.F31“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B31“).FormulaR1C1 + Range(„Tabelle1.C31“).FormulaR1C1
End If
If (Range(„Tabelle1.F32“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B32“).FormulaR1C1 + Range(„Tabelle1.C32“).FormulaR1C1
End If
If (Range(„Tabelle1.F33“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B33“).FormulaR1C1 + Range(„Tabelle1.C33“).FormulaR1C1
End If
If (Range(„Tabelle1.F34“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B34“).FormulaR1C1 + Range(„Tabelle1.C34“).FormulaR1C1
End If
If (Range(„Tabelle1.F35“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B35“).FormulaR1C1 + Range(„Tabelle1.C35“).FormulaR1C1
End If
If (Range(„Tabelle1.F36“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B36“).FormulaR1C1 + Range(„Tabelle1.C36“).FormulaR1C1
End If
If (Range(„Tabelle1.F37“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B37“).FormulaR1C1 + Range(„Tabelle1.C37“).FormulaR1C1
End If
If (Range(„Tabelle1.F38“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B38“).FormulaR1C1 + Range(„Tabelle1.C38“).FormulaR1C1
End If
If (Range(„Tabelle1.F39“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B39“).FormulaR1C1 + Range(„Tabelle1.C39“).FormulaR1C1
End If
If (Range(„Tabelle1.F40“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B40“).FormulaR1C1 + Range(„Tabelle1.C40“).FormulaR1C1
End If
If (Range(„Tabelle1.F41“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B41“).FormulaR1C1 + Range(„Tabelle1.C41“).FormulaR1C1
End If
If (Range(„Tabelle1.F42“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B42“).FormulaR1C1 + Range(„Tabelle1.C42“).FormulaR1C1
End If
If (Range(„Tabelle1.F43“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B43“).FormulaR1C1 + Range(„Tabelle1.C43“).FormulaR1C1
End If
If (Range(„Tabelle1.F44“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B44“).FormulaR1C1 + Range(„Tabelle1.C44“).FormulaR1C1
End If
If (Range(„Tabelle1.F45“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B45“).FormulaR1C1 + Range(„Tabelle1.C45“).FormulaR1C1
End If
If (Range(„Tabelle1.F46“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B46“).FormulaR1C1 + Range(„Tabelle1.C46“).FormulaR1C1
End If
If (Range(„Tabelle1.F47“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B47“).FormulaR1C1 + Range(„Tabelle1.C47“).FormulaR1C1
End If
If (Range(„Tabelle1.F48“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B48“).FormulaR1C1 + Range(„Tabelle1.C48“).FormulaR1C1
End If
If (Range(„Tabelle1.F49“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B49“).FormulaR1C1 + Range(„Tabelle1.C49“).FormulaR1C1
End If
If (Range(„Tabelle1.F50“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B50“).FormulaR1C1 + Range(„Tabelle1.C50“).FormulaR1C1
End If
If (Range(„Tabelle1.F51“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B51“).FormulaR1C1 + Range(„Tabelle1.C51“).FormulaR1C1
End If
If (Range(„Tabelle1.F52“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B52“).FormulaR1C1 + Range(„Tabelle1.C52“).FormulaR1C1
End If
If (Range(„Tabelle1.F53“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B53“).FormulaR1C1 + Range(„Tabelle1.C53“).FormulaR1C1
End If
If (Range(„Tabelle1.F54“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B54“).FormulaR1C1 + Range(„Tabelle1.C54“).FormulaR1C1
End If
If (Range(„Tabelle1.F55“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B55“).FormulaR1C1 + Range(„Tabelle1.C55“).FormulaR1C1
End If
If (Range(„Tabelle1.F56“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B56“).FormulaR1C1 + Range(„Tabelle1.C56“).FormulaR1C1
End If
If (Range(„Tabelle1.F57“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B57“).FormulaR1C1 + Range(„Tabelle1.C57“).FormulaR1C1
End If
If (Range(„Tabelle1.F58“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B58“).FormulaR1C1 + Range(„Tabelle1.C58“).FormulaR1C1
End If
If (Range(„Tabelle1.F59“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B59“).FormulaR1C1 + Range(„Tabelle1.C59“).FormulaR1C1
End If
If (Range(„Tabelle1.F60“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B60“).FormulaR1C1 + Range(„Tabelle1.C60“).FormulaR1C1
End If
If (Range(„Tabelle1.F61“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B61“).FormulaR1C1 + Range(„Tabelle1.C61“).FormulaR1C1
End If
If (Range(„Tabelle1.F62“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B62“).FormulaR1C1 + Range(„Tabelle1.C62“).FormulaR1C1
End If
If (Range(„Tabelle1.F63“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B63“).FormulaR1C1 + Range(„Tabelle1.C63“).FormulaR1C1
End If
If (Range(„Tabelle1.F64“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B64“).FormulaR1C1 + Range(„Tabelle1.C64“).FormulaR1C1
End If
If (Range(„Tabelle1.F65“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B65“).FormulaR1C1 + Range(„Tabelle1.C65“).FormulaR1C1
End If
If (Range(„Tabelle1.F66“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B66“).FormulaR1C1 + Range(„Tabelle1.C66“).FormulaR1C1
End If
If (Range(„Tabelle1.F67“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B67“).FormulaR1C1 + Range(„Tabelle1.C67“).FormulaR1C1
End If
If (Range(„Tabelle1.F68“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B68“).FormulaR1C1 + Range(„Tabelle1.C68“).FormulaR1C1
End If
If (Range(„Tabelle1.F69“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B69“).FormulaR1C1 + Range(„Tabelle1.C69“).FormulaR1C1
End If
If (Range(„Tabelle1.F70“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B70“).FormulaR1C1 + Range(„Tabelle1.C70“).FormulaR1C1
End If
If (Range(„Tabelle1.F71“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B71“).FormulaR1C1 + Range(„Tabelle1.C71“).FormulaR1C1
End If
If (Range(„Tabelle1.F72“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B72“).FormulaR1C1 + Range(„Tabelle1.C72“).FormulaR1C1
End If
If (Range(„Tabelle1.F73“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B73“).FormulaR1C1 + Range(„Tabelle1.C73“).FormulaR1C1
End If
If (Range(„Tabelle1.F74“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B74“).FormulaR1C1 + Range(„Tabelle1.C74“).FormulaR1C1
End If
7 If (Range(„Tabelle1.F75“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.75“).FormulaR1C1 + Range(„Tabelle1.C75“).FormulaR1C1
End If
If (Range(„Tabelle1.F76“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B76“).FormulaR1C1 + Range(„Tabelle1.C76“).FormulaR1C1
End If
If (Range(„Tabelle1.F77“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B77“).FormulaR1C1 + Range(„Tabelle1.C77“).FormulaR1C1
End If
If (Range(„Tabelle1.F78“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B78“).FormulaR1C1 + Range(„Tabelle1.C78“).FormulaR1C1
End If
If (Range(„Tabelle1.F79“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B79“).FormulaR1C1 + Range(„Tabelle1.C79“).FormulaR1C1
End If
If (Range(„Tabelle1.F80“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B80“).FormulaR1C1 + Range(„Tabelle1.C80“).FormulaR1C1
End If
If (Range(„Tabelle1.F81“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B81“).FormulaR1C1 + Range(„Tabelle1.C81“).FormulaR1C1
End If
If (Range(„Tabelle1.F82“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B82“).FormulaR1C1 + Range(„Tabelle1.C82“).FormulaR1C1
End If
If (Range(„Tabelle1.F83“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B83“).FormulaR1C1 + Range(„Tabelle1.C83“).FormulaR1C1
End If
If (Range(„Tabelle1.F84“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B84“).FormulaR1C1 + Range(„Tabelle1.C84“).FormulaR1C1
End If
If (Range(„Tabelle1.F85“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B85“).FormulaR1C1 + Range(„Tabelle1.C85“).FormulaR1C1
End If
If (Range(„Tabelle1.F86“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B86“).FormulaR1C1 + Range(„Tabelle1.C86“).FormulaR1C1
End If
If (Range(„Tabelle1.F87“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B87“).FormulaR1C1 + Range(„Tabelle1.C87“).FormulaR1C1
End If
If (Range(„Tabelle1.F88“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B88“).FormulaR1C1 + Range(„Tabelle1.C88“).FormulaR1C1
End If
If (Range(„Tabelle1.F89“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B89“).FormulaR1C1 + Range(„Tabelle1.C89“).FormulaR1C1
End If
If (Range(„Tabelle1.F90“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B90“).FormulaR1C1 + Range(„Tabelle1.C90“).FormulaR1C1
End If
If (Range(„Tabelle1.F91“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B91“).FormulaR1C1 + Range(„Tabelle1.C91“).FormulaR1C1
End If
If (Range(„Tabelle1.F92“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B92“).FormulaR1C1 + Range(„Tabelle1.C92“).FormulaR1C1
End If
If (Range(„Tabelle1.F93“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B93“).FormulaR1C1 + Range(„Tabelle1.C93“).FormulaR1C1
End If
If (Range(„Tabelle1.F94“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B94“).FormulaR1C1 + Range(„Tabelle1.C94“).FormulaR1C1
End If
If (Range(„Tabelle1.F95“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B95“).FormulaR1C1 + Range(„Tabelle1.C95“).FormulaR1C1
End If
If (Range(„Tabelle1.F96“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B96“).FormulaR1C1 + Range(„Tabelle1.C96“).FormulaR1C1
End If
If (Range(„Tabelle1.F97“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B97“).FormulaR1C1 + Range(„Tabelle1.C97“).FormulaR1C1
End If
If (Range(„Tabelle1.F98“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B98“).FormulaR1C1 + Range(„Tabelle1.C98“).FormulaR1C1
End If
If (Range(„Tabelle1.F99“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B99“).FormulaR1C1 + Range(„Tabelle1.C99“).FormulaR1C1
End If
If (Range(„Tabelle1.F100“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B100“).FormulaR1C1 + Range(„Tabelle1.C100“).FormulaR1C1
End If
If (Range(„Tabelle1.F101“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B101“).FormulaR1C1 + Range(„Tabelle1.C101“).FormulaR1C1
End If
If (Range(„Tabelle1.F102“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B102“).FormulaR1C1 + Range(„Tabelle1.C102“).FormulaR1C1
End If
If (Range(„Tabelle1.F103“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B103“).FormulaR1C1 + Range(„Tabelle1.C103“).FormulaR1C1
End If
If (Range(„Tabelle1.F104“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B104“).FormulaR1C1 + Range(„Tabelle1.C104“).FormulaR1C1
End If
If (Range(„Tabelle1.F105“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B105“).FormulaR1C1 + Range(„Tabelle1.C105“).FormulaR1C1
End If
If (Range(„Tabelle1.F106“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B106“).FormulaR1C1 + Range(„Tabelle1.C106“).FormulaR1C1
End If
If (Range(„Tabelle1.F107“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B107“).FormulaR1C1 + Range(„Tabelle1.C107“).FormulaR1C1
End If
If (Range(„Tabelle1.F108“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B108“).FormulaR1C1 + Range(„Tabelle1.C108“).FormulaR1C1
End If
If (Range(„Tabelle1.F109“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B109“).FormulaR1C1 + Range(„Tabelle1.C109“).FormulaR1C1
End If
If (Range(„Tabelle1.F110“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B110“).FormulaR1C1 + Range(„Tabelle1.C110“).FormulaR1C1
End If
If (Range(„Tabelle1.F111“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B111“).FormulaR1C1 + Range(„Tabelle1.C111“).FormulaR1C1
End If
If (Range(„Tabelle1.F112“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B112“).FormulaR1C1 + Range(„Tabelle1.C112“).FormulaR1C1
End If
If (Range(„Tabelle1.F113“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B113“).FormulaR1C1 + Range(„Tabelle1.C113“).FormulaR1C1
End If
If (Range(„Tabelle1.F114“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B114“).FormulaR1C1 + Range(„Tabelle1.C114“).FormulaR1C1
End If
If (Range(„Tabelle1.F115“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B115“).FormulaR1C1 + Range(„Tabelle1.C115“).FormulaR1C1
End If
If (Range(„Tabelle1.F116“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B116“).FormulaR1C1 + Range(„Tabelle1.C116“).FormulaR1C1
End If
If (Range(„Tabelle1.F117“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B117“).FormulaR1C1 + Range(„Tabelle1.C117“).FormulaR1C1
End If
If (Range(„Tabelle1.F118“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B118“).FormulaR1C1 + Range(„Tabelle1.C118“).FormulaR1C1
End If
If (Range(„Tabelle1.F119“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B119“).FormulaR1C1 + Range(„Tabelle1.C119“).FormulaR1C1
End If
If (Range(„Tabelle1.F120“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B120“).FormulaR1C1 + Range(„Tabelle1.C120“).FormulaR1C1
End If
If (Range(„Tabelle1.F121“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B121“).FormulaR1C1 + Range(„Tabelle1.C121“).FormulaR1C1
End If
If (Range(„Tabelle1.F122“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B122“).FormulaR1C1 + Range(„Tabelle1.C122“).FormulaR1C1
End If
If (Range(„Tabelle1.F123“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B123“).FormulaR1C1 + Range(„Tabelle1.C123“).FormulaR1C1
End If
If (Range(„Tabelle1.F124“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B124“).FormulaR1C1 + Range(„Tabelle1.C124“).FormulaR1C1
End If
If (Range(„Tabelle1.F125“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B125“).FormulaR1C1 + Range(„Tabelle1.C125“).FormulaR1C1
End If
If (Range(„Tabelle1.F126“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B126“).FormulaR1C1 + Range(„Tabelle1.C126“).FormulaR1C1
End If
If (Range(„Tabelle1.F127“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B127“).FormulaR1C1 + Range(„Tabelle1.C127“).FormulaR1C1
End If
If (Range(„Tabelle1.F128“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B128“).FormulaR1C1 + Range(„Tabelle1.C128“).FormulaR1C1
End If
If (Range(„Tabelle1.F129“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B129“).FormulaR1C1 + Range(„Tabelle1.C129“).FormulaR1C1
End If
If (Range(„Tabelle1.F130“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B130“).FormulaR1C1 + Range(„Tabelle1.C130“).FormulaR1C1
End If
If (Range(„Tabelle1.F131“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B131“).FormulaR1C1 + Range(„Tabelle1.C131“).FormulaR1C1
End If
If (Range(„Tabelle1.F132“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B132“).FormulaR1C1 + Range(„Tabelle1.C132“).FormulaR1C1
End If
If (Range(„Tabelle1.F133“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B133“).FormulaR1C1 + Range(„Tabelle1.C133“).FormulaR1C1
End If
If (Range(„Tabelle1.F134“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B134“).FormulaR1C1 + Range(„Tabelle1.C134“).FormulaR1C1
End If
If (Range(„Tabelle1.F135“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B135“).FormulaR1C1 + Range(„Tabelle1.C135“).FormulaR1C1
End If
If (Range(„Tabelle1.F136“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B136“).FormulaR1C1 + Range(„Tabelle1.C136“).FormulaR1C1
End If
If (Range(„Tabelle1.F137“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B137“).FormulaR1C1 + Range(„Tabelle1.C137“).FormulaR1C1
End If
If (Range(„Tabelle1.F138“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B138“).FormulaR1C1 + Range(„Tabelle1.C138“).FormulaR1C1
End If
If (Range(„Tabelle1.F139“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B139“).FormulaR1C1 + Range(„Tabelle1.C139“).FormulaR1C1
End If
If (Range(„Tabelle1.F140“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B140“).FormulaR1C1 + Range(„Tabelle1.C140“).FormulaR1C1
End If
If (Range(„Tabelle1.F141“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B141“).FormulaR1C1 + Range(„Tabelle1.C141“).FormulaR1C1
End If
If (Range(„Tabelle1.F142“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B142“).FormulaR1C1 + Range(„Tabelle1.C142“).FormulaR1C1
End If
If (Range(„Tabelle1.F143“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B143“).FormulaR1C1 + Range(„Tabelle1.C143“).FormulaR1C1
End If
If (Range(„Tabelle1.F144“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B144“).FormulaR1C1 + Range(„Tabelle1.C144“).FormulaR1C1
End If
If (Range(„Tabelle1.F145“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B145“).FormulaR1C1 + Range(„Tabelle1.C145“).FormulaR1C1
End If
If (Range(„Tabelle1.F146“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B146“).FormulaR1C1 + Range(„Tabelle1.C146“).FormulaR1C1
End If
If (Range(„Tabelle1.F47“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B147“).FormulaR1C1 + Range(„Tabelle1.C147“).FormulaR1C1
End If
If (Range(„Tabelle1.F148“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B148“).FormulaR1C1 + Range(„Tabelle1.C148“).FormulaR1C1
End If
If (Range(„Tabelle1.F149“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B149“).FormulaR1C1 + Range(„Tabelle1.C149“).FormulaR1C1
End If
If (Range(„Tabelle1.F150“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B150“).FormulaR1C1 + Range(„Tabelle1.C150“).FormulaR1C1
End If
If (Range(„Tabelle1.F151“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B151“).FormulaR1C1 + Range(„Tabelle1.C151“).FormulaR1C1
End If
If (Range(„Tabelle1.F152“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B152“).FormulaR1C1 + Range(„Tabelle1.C152“).FormulaR1C1
End If
If (Range(„Tabelle1.F153“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B153“).FormulaR1C1 + Range(„Tabelle1.C153“).FormulaR1C1
End If
If (Range(„Tabelle1.F154“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B154“).FormulaR1C1 + Range(„Tabelle1.C154“).FormulaR1C1
End If
If (Range(„Tabelle1.F155“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B155“).FormulaR1C1 + Range(„Tabelle1.C155“).FormulaR1C1
End If
If (Range(„Tabelle1.F156“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B156“).FormulaR1C1 + Range(„Tabelle1.C156“).FormulaR1C1
End If
If (Range(„Tabelle1.F157“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B157“).FormulaR1C1 + Range(„Tabelle1.C157“).FormulaR1C1
End If
If (Range(„Tabelle1.F158“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B158“).FormulaR1C1 + Range(„Tabelle1.C158“).FormulaR1C1
End If
If (Range(„Tabelle1.F159“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B159“).FormulaR1C1 + Range(„Tabelle1.C159“).FormulaR1C1
End If
If (Range(„Tabelle1.F160“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B160“).FormulaR1C1 + Range(„Tabelle1.C160“).FormulaR1C1
End If
If (Range(„Tabelle1.F161“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B161“).FormulaR1C1 + Range(„Tabelle1.C161“).FormulaR1C1
End If
If (Range(„Tabelle1.F162“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B162“).FormulaR1C1 + Range(„Tabelle1.C162“).FormulaR1C1
End If
If (Range(„Tabelle1.F163“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B163“).FormulaR1C1 + Range(„Tabelle1.C163“).FormulaR1C1
End If
If (Range(„Tabelle1.F164“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B164“).FormulaR1C1 + Range(„Tabelle1.C164“).FormulaR1C1
End If
If (Range(„Tabelle1.F165“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B165“).FormulaR1C1 + Range(„Tabelle1.C165“).FormulaR1C1
End If
If (Range(„Tabelle1.F166“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B166“).FormulaR1C1 + Range(„Tabelle1.C166“).FormulaR1C1
End If
If (Range(„Tabelle1.F167“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B167“).FormulaR1C1 + Range(„Tabelle1.C167“).FormulaR1C1
End If
If (Range(„Tabelle1.F168“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B168“).FormulaR1C1 + Range(„Tabelle1.C168“).FormulaR1C1
End If
If (Range(„Tabelle1.F169“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B169“).FormulaR1C1 + Range(„Tabelle1.C169“).FormulaR1C1
End If
If (Range(„Tabelle1.F170“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B170“).FormulaR1C1 + Range(„Tabelle1.C170“).FormulaR1C1
End If
If (Range(„Tabelle1.F171“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B171“).FormulaR1C1 + Range(„Tabelle1.C171“).FormulaR1C1
End If
If (Range(„Tabelle1.F172“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B172“).FormulaR1C1 + Range(„Tabelle1.C172“).FormulaR1C1
End If
If (Range(„Tabelle1.F173“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B173“).FormulaR1C1 + Range(„Tabelle1.C173“).FormulaR1C1
End If
If (Range(„Tabelle1.F174“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B174“).FormulaR1C1 + Range(„Tabelle1.C174“).FormulaR1C1
End If
7 If (Range(„Tabelle1.F175“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B175“).FormulaR1C1 + Range(„Tabelle1.C175“).FormulaR1C1
End If
If (Range(„Tabelle1.F176“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B176“).FormulaR1C1 + Range(„Tabelle1.C176“).FormulaR1C1
End If
If (Range(„Tabelle1.F177“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B177“).FormulaR1C1 + Range(„Tabelle1.C177“).FormulaR1C1
End If
If (Range(„Tabelle1.F178“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B178“).FormulaR1C1 + Range(„Tabelle1.C178“).FormulaR1C1
End If
If (Range(„Tabelle1.F179“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B179“).FormulaR1C1 + Range(„Tabelle1.C179“).FormulaR1C1
End If
If (Range(„Tabelle1.F180“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B180“).FormulaR1C1 + Range(„Tabelle1.C180“).FormulaR1C1
End If
If (Range(„Tabelle1.F181“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B181“).FormulaR1C1 + Range(„Tabelle1.C181“).FormulaR1C1
End If
If (Range(„Tabelle1.F182“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B182“).FormulaR1C1 + Range(„Tabelle1.C182“).FormulaR1C1
End If
If (Range(„Tabelle1.F183“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B183“).FormulaR1C1 + Range(„Tabelle1.C183“).FormulaR1C1
End If
If (Range(„Tabelle1.F184“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B184“).FormulaR1C1 + Range(„Tabelle1.C184“).FormulaR1C1
End If
If (Range(„Tabelle1.F185“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B185“).FormulaR1C1 + Range(„Tabelle1.C185“).FormulaR1C1
End If
If (Range(„Tabelle1.F186“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B186“).FormulaR1C1 + Range(„Tabelle1.C186“).FormulaR1C1
End If
If (Range(„Tabelle1.F187“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B187“).FormulaR1C1 + Range(„Tabelle1.C187“).FormulaR1C1
End If
If (Range(„Tabelle1.F188“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B188“).FormulaR1C1 + Range(„Tabelle1.C188“).FormulaR1C1
End If
If (Range(„Tabelle1.F189“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B189“).FormulaR1C1 + Range(„Tabelle1.C189“).FormulaR1C1
End If
If (Range(„Tabelle1.F190“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B190“).FormulaR1C1 + Range(„Tabelle1.C190“).FormulaR1C1
End If
If (Range(„Tabelle1.F191“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B191“).FormulaR1C1 + Range(„Tabelle1.C191“).FormulaR1C1
End If
If (Range(„Tabelle1.F192“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B192“).FormulaR1C1 + Range(„Tabelle1.C192“).FormulaR1C1
End If
If (Range(„Tabelle1.F193“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B193“).FormulaR1C1 + Range(„Tabelle1.C193“).FormulaR1C1
End If
If (Range(„Tabelle1.F194“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B194“).FormulaR1C1 + Range(„Tabelle1.C194“).FormulaR1C1
End If
If (Range(„Tabelle1.F195“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B195“).FormulaR1C1 + Range(„Tabelle1.C195“).FormulaR1C1
End If
If (Range(„Tabelle1.F196“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B196“).FormulaR1C1 + Range(„Tabelle1.C196“).FormulaR1C1
End If
If (Range(„Tabelle1.F197“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B197“).FormulaR1C1 + Range(„Tabelle1.C197“).FormulaR1C1
End If
If (Range(„Tabelle1.F198“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B198“).FormulaR1C1 + Range(„Tabelle1.C198“).FormulaR1C1
End If
If (Range(„Tabelle1.F199“).FormulaR1C1 „“) Then
Range(„Tabelle2.A4“).FormulaR1C1 = Range(„Tabelle1.B199“).FormulaR1C1 + Range(„Tabelle1.C199“).FormulaR1C1
End If
End Sub
kannst du bitte konkreter erklären was du genau machen möchtest.
Meinst du z.B.:
In Zelle „A4“ von Tabelle1 steht das Wort „test1“
In Zelle „B3“ von Tabelle1 steht das Wort „test2“
In Zelle „B4“ von Tabelle1 steht das Wort „test3“
Dann die Ergebnis in Zelle „C4“ schreiben.
Das wäre: test2test3
if IsEmpty(Tabelle1.Cells(1,4))= False then
Tabelle1.Cells(3,4)=Tabelle1.Cells(2,3) & Tabelle1.Cells(2,4)
end if
Ich hoffe dass diese Info dich weiter helfen wird. Falls nicht schreib mehr in dem Aufgabe Erklärung hinein.
OK, also ist die Zelle F5 vom 1. Tabellenblatt nicht leer soll, soll der WErt von B6+C6 in ein Feld im 2. Tabellenblatt kopiert werden.
Achtung!
das selbe gilt 199 mahl d.h. mal allgemein
ist die Zelle Fn vom 1. Tabellenblatt nicht leer soll, der Wert von Bn+Cn in ein Feld im 2. Tabellenblatt kopiert werden aber! es kann auch vor kommen dass also dann später in dem Feld der 2. Tabelle z.B. B4+c4,B5+C5,…
sry hab mich falsch ausgedrückt in der Zelle sollen später die anderen zwei zusammen kommen da in der spalte B vornamen und in c nachnamen stehen… und in die zelle sollen mehrer personen zusammen gefasst werden und mit komma getrennt (also eher B5C5;B6C6… mit der bedingung… dass F5 nicht leer ist…
Soo, für 199 mal das ausführen, kannst du die for Schleife benutzen, z.B.:
for i=1 to 199
if IsEmpty( tabbelle1.cells(i,6))=false then
tabelle2.cells(i,1)=tabelle1.cells(i,2) & tabelle1.cells(i,3)
end if
next i
Ich hoffe dass ich auf deine Frage geantwortet habe. Falls nicht, kannst noch mal sagen wo ich falsch lag.
Viele Grüße
mayla
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo.
Eine Zelle prüfenob sie leer ist, und dann den Inhalt anderer Zellen kopieren geht z.B. so:
Sub Kopieren()
With Worksheets(„Tabelle1“)
If Range(„A1“).Value „“ Then
.Range(„B1:B2“).Copy _
Destination:=.Range(„C1“)
End If
End With
End Sub
Wie du das mit zwei Zellen in eine kopieren genau meinst müsstest du mir etwas genauer erklären.
Hoffe das hilft dir weiter… ansonsten melde dich einfach wieder.
Gruss Armin
mein einzigsten Problem liegt nun nur noch darin das ich von mehrern zellen den Inhalt in eine einzige fügen will…
aber das bekomm ich auch noch in de Griff danke trozdem für alles
Versuch’s mal hiermit:
=WENN(A1="";VERKETTEN(B1;B2);A1)
Ich hoffe, dass das die richtige Antwort ist. Wenn ich Zelle A1 ein Text steht, wird er eringefügt. Steht nichts (also „“), dann werden die Zellen B1 und B2 verkettet eingefügt.
Kleiner Tipp: Wenn du in B1 und B2 jeweils einen Text hast, den du mit Leerzeichen trennen willst, heißt die Formel:
=WENN(A1="";VERKETTEN(B1;" ";B2);A1)
Thorsten
wenn(zelle1="";"";zelle2=zelle3)
Welche Daten sind denn in den beiden Zellen, die in die eine Zelle kopiert werden sollen? Wie soll das aussehen?
Entschuldige meine späte Antwort. Ich hoffe, sie bringt Dich überhaupt noch weiter.
Also ich möchte eine If frage machen
Wenn in eine bestimmte zelle nicht leer ist dann soll in eine
andere zelle von zwei anderen zellen entwas hinnein kopiert
werden… verstandne?
Hallo,
ist dieses Problem von anderer Seite bereits gelöst?
Wenn nicht, bitte um Bescheid.