If abfrage Excell

sirshooter · 25. März 2010 um 21:03

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

Philipp_Kirchbihler · 25. März 2010 um 21:41

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

sirshooter · 25. März 2010 um 23:04

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

Philipp_Kirchbihler · 25. März 2010 um 23:22

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ß

Kurt_Kopp · 25. März 2010 um 23:26

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

pc_qu_ler · 26. März 2010 um 09:12

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

Loki1661_79f839 · 26. März 2010 um 11:01

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

sirshooter · 26. März 2010 um 15:25

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

mayla · 26. März 2010 um 16:15

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.

sirshooter · 27. März 2010 um 00:09

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,…

sirshooter · 27. März 2010 um 01:46

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…

mayla · 27. März 2010 um 16:27

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]

Armin_3db62a · 27. März 2010 um 18:01

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

sirshooter · 28. März 2010 um 12:28

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

TR_ckert · 29. März 2010 um 14:16

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

Yewa · 6. Juni 2010 um 22:54

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?

Rolf_cf54c6 · 18. Dezember 2010 um 16:30

Hallo,

ist dieses Problem von anderer Seite bereits gelöst?
Wenn nicht, bitte um Bescheid.