Office: Wenn oder/und .. oder .. oder/und

@slowboarder
Habe alles umgestellt. Ist super. Bekomme so auch keine Meldung mehr von der Zwischenablage.
Die Module habe ich auf 8 Stück reduziert.
Vielen Dank nochmals.
Gruss Fedi

@R J
Ist leider schon zu spät, alles fertig. Trotzdem danke.
Gruss Fedi

 

Man ist eben nie fertig, man findet immer etwas ...
und dies wird noch eine Weile so weitergehen, vermutlich.
Gruss Fedi

I'm so good at sleeping that I can even do it with my eyes closed.

 

Ja eben, ich muss mich wiederholen (siehe oben).
Ich habe noch einige Aenderungen vorgenommen und zusätzlich die Möglichkeit für einen Crosscheck eingebaut, damit bei
Zweideutigkeiten eine Möglichkeit zum Selbstentscheiden entsteht.
Ich lade die (fertige ...) Datei für daran Interessierte hoch. Sollte dies verpönt sein, dann sagt Bescheid.
Fedi

 

Meine nächste (letzte?) Idee, die ich noch verwirklichen will sieht so aus:

Mit Makro möchte ich im Arbeitsblatt "Tenses"
mit Klick auf Steuerelement -> Zelle AB3 kopieren und in Zelle A7 einfügen.
Dann nächster Klick -> Zelle AB4 kopieren und in Zelle A7 einfügen.
Dann nächste Klicks bis in -> Zelle AB* kein Text mehr vorhanden ist.
Dieses neue Makro sollte automatisch deaktiviert werden sobald ich ein anderes Makro betätige.

Damit könnte ich komplizierte Sätze, wie "By the time we arrived at the station, the train had already left."
einzeln als Beispiele aufrufen und mittels meinen Crosscheck-Makro analysieren und die Hirnleistung testen.
Danke im Voraus für einen Tipp.
Gruss Fedi

A stockbroker urged me to buy a stock that would triple its value every year.
I told him, 'At my age, I don't even buy green bananas.'
Claude Pepper

 

Hallo Claude,
<Code>
Option Explicit

Sub Kopie()
With Worksheets("Tenses")
.Range("A7") = Range("AB3")
.Range("A7") = Ranfe&("AB4") 'warun gleiche Zelle?
.Rasnge("A7") = .Range("AB5") 'warun gleiche Zelle? Nummere fwhlrw
End With
End Sub
</code>

Gruß Hajo

 

Hallo Hajo
Noch immer knallhart am Arbeiten!
Danke für die Hilfe. Werde dies testen.
Claude war derjenige, der keine grünen Bananen mehr kauft. :-)
Gruss Fedi

 

@Hajo_Zi
Ich glaube, Du hast meine Frage missverstanden.
Bei jedem einzelnen Klick auf das Makro soll es einen Kopiervorgang geben.
Immer eine Zelle zum Kopieren fortlaufend in der betreffenden Spalte AB..., bis kein Text mehr vorkommt.
Fedi

 

meintest du anstatt "einfügen" vielleicht "anfügen"?

 

Ich habe mich an das gehalten was im Beitrag Stand.
Ich baue keine Datei noch, darum ohne Testung.
2 Versuch HTML

HTML:

Option Explicit
Sub Kopie()
    Dim LoLetzte As Long
    Dim Loi As Long
    With Worksheets("Tenses")
        LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 28)), Cells(Rows.Count, 28).End(xlUp).Row, Rows.Count)
        For Loi = 7 To LoLetzte
            If .Range("AB" & Loi - 4) = "" Then
                Exit For
            Else
                .Range("A" & Loi) = .Range("AB" & Loi - 4)
            End If
        Next Loi
    End With
End Sub

Gruß Hajo

 

@Hajo_Zi
Danke.
Leider bewegt sich damit gar nichts ...
Ich benutze: Office Home and Business 2021, nicht an die Cloud gebunden.
Salut

 

das kann ich nicht nachvollziehen, da ich nicht auf fremde Rechner schaue,
Ich hatte schon geschrieben ich baue keine Datei nach,

Gruß Hajo

 

Hallo Fedi,

sicherlich läßt sich so etwas umsetzen, aber dann muß man sich die aktuelle kopierte Zelle irgendwo merken, damit beim wiederholten Aufruf die nächste Zelle verwendet wird. Schwierig wird es dann, wenn dieser Mechanismus zurückgesetzt werden soll bzw. muss, z.B. bei einem vorzeitigem Abbruch einer solchen Kopierorgie.
Ich denke, du bist lange genug dabei, um das selber mal zu versuchen.


Knobbi38