VBA Code

[shift-del]

Maximus,

für Text dann diese Formel:

Code:

=VERWEIS("Ω";Kopie1!$AG$6:$AG$49)

[Maximus]

Maximus,

für Text dann diese Formel:

Code:

=VERWEIS("Ω";Kopie1!$AG$6:$AG$49)

Hi Shift,ich brauche unbedingt diese Grundlage:

Sheets(Range("AR1").Value).Select
    Range("AG6").Select
    Selection.Copy
    Sheets("Spielabschnitt").Select
    Range("H" & Range("AR2").Value).PasteSpecial Paste:=xlPasteValues

wo baue ich deinen Zusatz dann hier rein?

Bräuchte eine Erweiterung, dahingehend, dass NUR ein Übertrag in H, wenn auch ein tatsächlicher Eintrag in AG 6
Wenn das so nicht möglich ist, eventuell mit der Möglichkeit, dass AG 6 noch einer anderen Zelle zugeordnet ist AA6.
Für AG6 existiert die Zelle AA6. Wenn in AA6 eine 0 steht, dann soll AG6 nach H NICHT übertragen werden.
Wenn in AA6 eine 1 steht, dann soll AG6 nach H übertragen werden.

[Steffl]

Hallo Markus,

könntest Du die Datei hier hochladen?

[shift-del]

Maximus,

das ist kein VBA-Code sondern eine Formel die in die Zelle H2 gehört.

Aber wie bereits geschrieben halte ich deinen Aufbau für chaotisch und er sollte geändert werden.

[Maximus]

Hallo Stefan,
kann ich machen.

Datei „fertig6“
Bei dieser Datei funktionier das Programm in Modul 2, weil nur AG6 in das Tabellenblatt „Spielabschnitt“ übertragen wird!
Voraussetzung, dass es funktioniert ist, dass du in U6 einen Haken setzt, dann wird in AG6 automatisch ein Eintrag vorgenommen. Über das VBA-Programm im Modul 2 wird dann der Übertrag in das Arbeitsblatt Spielabschnitt H2 vorgenommen. Das funktioniert.
Wie du erkennen kannst, wird durch den Haken im  Kontrollkästchen auch AA6 mit einer 1 versehen, ohne Haken steht dort eine Null. Eventuell kann man darüber was im VBA-Programm machen.
sieheAnhang „fertig6“
 
 
Datei „fertig7“
dort habe ich zusätzlich AG9, AG12, AG15, AG23, AG26, AG29, AG32, AG40, AG43, AG46, AG49 mit eingearbeitet. Nur jetzt werden auch Leerzellen übertragen und es steht letzten Endes nichts in H2.
 
Irgendwie müsste man mit einem Zusatz dem Programm klar machen, dass der Übertrag nur stattfinden soll, wenn auch wirklich ein Text in einer AG Zelle steht.
Oder
Über den Weg
Für AG6 existiert die Zelle AA6. Wenn in AA6 eine 0 steht, dann soll AG6 nach H NICHT übertragen werden.
Wenn in AA6 eine 1 steht, dann soll AG6 nach H übertragen werden.
 
Wäre super, wenn man da was machen kann!
 
 
Gruss Markus

[Maximus]

zusätzlicher anhang
fertig7

[shift-del]

Meine schlimmsten Befürchtungen haben sich bestätigt.

[Maximus]

wäre super wenn wer ne lösung weiss

[Maximus]

Sheets(Range("AR1").Value).Select
    Range("AG6").Select
    Selection.Copy
    Sheets("Spielabschnitt").Select
    Range("H" &Range("AR2").Value).PasteSpecial Paste:=xlPasteValues


ich bräuchte hierfür den Zusatz:

Wenn in AA6 eine Null dann soll KEINE Copy stattfinden!
Sonst ja!


Dann wäre das Problem gelöst. nur wie verpacke ich das in dieses programm

[shift-del]

Maximus,

Mappe in den Schredder und neu anfangen.

Was sind Eingabe-Werte?
Was sind berechnete Werte?
Welche Auswertungen werden benötigt?

Eingabe-Werte in einer Datensatzliste.
Berechnete Werte ggf. in der Liste.
Ansonsten berechnete Werte und Auswertungen mit Power Query oder Pivot-Table/-Chart.