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

 

Merci allen für die Vorschläge/Hilfe.
Da ich über diese Schlaufe kein Knowhow habe, aber sie trotzdem versucht habe zu verstehen (was mir nicht gut genug gelungen ist), kam mir in Erinnerung, dass die Empfängeradresse A7 mit A8 verbunden ist. Ergibt 1 Zelle zusammen.
Danach (nach Aufhebung der Verbindung) lief das Makro von Hajo insofern, dass ein Beispielsatz dort ankam. Hernach habe ich die Zellen wieder verbunden und siehe da, es läuft jetzt trotzdem.
Bei erneuten Betätigen des Makros passiert jedoch so oder so nichts mehr (kein neuer Beispielsatz kommt an). Zähler?
Was mache ich falsch?
Gruss Fedi
Doing nothing is very hard to do. You never know when you are finished.

Hier das Makro von Hajo:
Option Explicit
Sub SchwierigeSätze()
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

 

Wie wäre es damit?
Das wäre vielleicht auch eine Möglichkeit.
Die Einstellungen fallen mir jedoch schwer ...

Anforderung nochmal kurz geschildert:
- Klick auf Makro: Kopieren von AB3 nach A7
- Wieder Klick auf Makro: Kopieren von AB4 nach A7
- Wieder Klick auf Makro: Kopieren von AB5 nach A7
- usw, bis keine gefüllte Zelle vorhanden
Ist hier jemand zu finden, der dieses Makro so anpasst, dass es funktioniert?
Gruss Fedi

Option Explicit
Sub WertEinsetzen()
Dim ws As Worksheet
Dim zielZelle As Range
Dim startZelle As Range

' Tabellenblatt festlegen (aktuelles Blatt)
Set ws = ActiveSheet

' Zielzelle ist A7
Set zielZelle = ws.Range("A7")

' Startzelle in Spalte X definieren (Zeile 4)
' Wir merken uns die Zeile mit einer Hilfszelle oder einer Variablen.
' Hier nutzen wir die Zelle X1 als Zähler für die aktuelle Zeile.

If ws.Range("X1").Value = "" Then
ws.Range("X1").Value = 4 ' Start bei Zeile 4
Else
ws.Range("X1").Value = ws.Range("X1").Value + 1 ' Nächste Zeile bei Klick
End If

' Wert von Spalte X und aktueller Zeile nach A7 kopieren
zielZelle.Value = ws.Cells(ws.Range("X1").Value, "X").Value

End Sub

 

Hallo Fedi,

das Problem ist, wie ich es oben schon mal beschrieben habe, deine Forderung: "Klick auf Makro" und dann "Wieder Klick auf Makro". Eine Variable außerhalb des eigentlichen Makros zu definieren ist ja nicht das Problem, sondern wie wird das wieder zurückgesetzt, wenn du mal nicht unbedingt bis zum Ende klicken oder wieder von vorne beginnen möchtest?

Die Anpassung an deinem VBA Code ist jetzt nicht das Problem. Hier verkennst du etwas.

Btw.: Wie ist denn eigentlich das entsprechende Tabellenblatt beschriftet? Alles auf ActiveSheet zu beziehen ist jetzt nicht so prickelnd.

Knobbi38