Kopieren von Zellen auf Knopfdruck

[karolus]

Ich kann keinen wirklichen Mehraufwand erkennen!

[perlchamp]

Ich kann keinen wirklichen Mehraufwand erkennen!

na, es ist doch offenkundig, dass Zelle markieren (außer Sichtweite->scrollen) und danach Strg+c umständlicher und zeitintensiver sind, als EIN Mausklick, zumal ich dazu die Maus verlassen, und danach wieder anfassen muss.

Oder habe ich dich falsch verstanden?

Das Makro funktioniert eh nicht, so what...

Danke für deine Zeit und Hilfe.

[karolus]

Ich kann keinen wirklichen Mehraufwand erkennen!

na, es ist doch offenkundig, dass Zelle markieren (außer Sichtweite->scrollen) und danach Strg+c umständlicher und zeitintensiver sind, als EIN Mausklick, zumal ich dazu die Maus verlassen, und danach wieder anfassen muss.

wenn es dir möglich ist einen Button in unmittelbarer Nachbarschaft der letzten Eingabezelle zu platzieren, sollte es dir auch möglich sein, eine Formelreferenz auf die zu kopierende Zelle herzustellen… und schon musst du gar nicht mal zur Maus greifen, sondern nur noch die Tabulator drücken oder die entsprechende Pfeiltaste und strg+c

Das Makro funktioniert eh nicht, so what...

es funktioniert!

Danke für deine Zeit und Hilfe.

nicht dafür

[perlchamp]

das Makro wirft bei mir eine Fehlermeldung. Funzt also nicht.

Und nein, es ist mir nicht möglich, den Button anders zu plazieren. Über was reden wir hier eigentlich?
Über Gewohnheiten? Wenn du nicht helfen willst, oder kannst, dann ist das eben so, Aber mir vorzuschreiben, wie ich etwas tun soll, na ja... das ist nicht die Lösung meines Problems, und sollte in deiner Hilfestellung auch kein Thema sein.

Schönen Sonntag-Abend, und einen guten Start in die kommende Woche.

[karolus]

Versuchs doch mal mit:
⇒ Extras ⇒ Makros ⇒ Makros aufzeichnen

Ich könnte jetzt auch das Ergebnis davon hier als Code posten, aber dann müsstest du ja schon wieder die Tasten strg+c bemühen!

[n8eule]

Das geht am einfachsten mit einem Makro + Button. So gehst du vor:

**1. Makro erstellen:**

Extras → Makros → Basic-Makros bearbeiten → neues Makro eingeben:

```
Sub WertKopieren()
Dim oDoc As Object
Dim oSheet As Object
Dim oCell As Object
Dim oClipboard As Object

oSheet = ThisComponent.Sheets.getByIndex(0)
oCell = oSheet.getCellByPosition(2, 5) ' Spalte C, Zeile 6

Dim sText As String
sText = oCell.getString()

Dim oService As Object
oService = CreateUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")

Dim oTransferable As Object
oTransferable = CreateUnoService("com.sun.star.datatransfer.TransferableHelper")

End Sub
```

Jetzt musst du nur noch den richtige Adresse deiner zu kopierenden Zelle eintragen:
Passe `getCellByPosition(2, 5)` an – dabei gilt:
- erste Zahl = Spalte (0=A, 1=B, 2=C …)
- zweite Zahl = Zeile (0=1, 1=2, 2=3 …)

**2. Button einfügen:**

- Ansicht → Symbolleisten → Formular-Symbolleiste aktivieren
- "Schaltfläche" in die Tabelle ziehen
- Rechtsklick auf Button → Kontrollfeld → Ereignisse → "Beim Auslösen" → dein Makro zuweisen

Liebe Grüße,
Heiner