OpenOffice.info

[quote]Kannst du mir die Bedingung zum Verlassen der Routine noch erklären?

if not oSel.supportsservice("com.sun.star.sheet.SheetCell") then exit sub[/quote]

Wenn die aktuelle Selektion keine Zelle ist (sondern z.B. ein Zellbereich) soll das Makro verlassen werden (weil es sonst zu einem Fehler käme)


Gruß
Stephan

Superklasse! Geanu dass, was ich wollte!!

Kannst du mir die Bedingung zum Verlassen der Routine noch erklären?

[i]if not oSel.supportsservice("com.sun.star.sheet.SheetCell") then exit sub[/i]

Danke dir!

Stefan

Sub Soll_Ist()
    oSel = ThisComponent.CurrentSelection
    if not oSel.supportsservice("com.sun.star.sheet.SheetCell") then exit sub
    Text = oSel.String
    meineCalcDatei = thisComponent
    meineTabelle = meineCalcDatei.Sheets.getbyname("Aufsichten")
    meineZelleJ3 = meineTabelle.getcellrangebyname("J3")
    'in J3 schreiben
    meineZelleJ3.String = Text
End Sub

Hi,
Rechtsklick auf Tabellenreiter->Tabellenereignisse...->Auswahl geändert.
Allerdings würde ich noch abfangen, ob es sich bei der aktuellen Auswahl tatsächlich um [color=#FF0000][b]nur eine Zelle[/b][/color] handelt.
[code]Sub Soll_Ist()
oSel = ThisComponent.CurrentSelection
if not oSel.supportsservice("com.sun.star.sheet.SheetCell") then exit sub
Text = oSel.String
meineCalcDatei = thisComponent
meineTabelle = meineCalcDatei.Sheets.getbyname("Aufsichten")
meineZelleJ3 = meineTabelle.getcellrangebyname("J3")
'in J3 schreiben
meineZelleJ3.String = Text
End Sub[/code]
Gruß R

DANKE!

Ich habe jetzt ein Makro zusammen geschustert, dass in etwa macht, was ich will:
[i]Option Explicit
DIM Text As String
DIM meineCalcDatei
DIM meineTabelle
DIM meineZelleJ3

Sub Soll_Ist()

Text = ThisComponent.getCurrentSelection().String
meineCalcDatei = thisComponent
meineTabelle = meineCalcDatei.Sheets.getbyname("Aufsichten")
meineZelleJ3 = meineTabelle.getcellrangebyname("J3")
'in J3 schreiben
meineZelleJ3.String = Text

End Sub[/i]

Allerdings muss ich das Makro immer von Hand starten. Am liebsten wäre mir, wenn die Zelle J3 automatisch aktualisiert wird, wenn ich eine andere Zelle auswähle!

Hat hier noch jemand eine Idee?

Viele Grüße
Stefan

Hallo,
versuche mal
.String oder .formula statt .value
Gruß R

Hallo,

habe gerade
ThisComponent.getCurrentSelection().Value
gefunden. Das liefert mir aber nur numerische Werte und nicht den Text in der Zelle!

Vielen Dank für die schnelle Antwort, Faol!

Mit SVERWEIS hole ich mir schon Zahlen, die auf dem 2. Tab berechnet werden. Ich möchte gerne ein "Infofeld" auf dem ersten Tab haben, das mir je nach aktiver Zelle dort den Inhalt dieser Zelle anzeigt. Dann kann ich mit SVERWEIS die Infos von Tab 2 holen.

Beispiel:

1. In Tabelle1.J3 trage ich Müller ein.
2. [color=#FF0000][b]In Tabelle.A1 erscheint "Müller"[/b][/color]
3. In Tabelle1.A2 steht =SVERWEIS(A1;Tabelle2.A2:G91;5), womit mir der auf "Müller" bezogene Wert aus Tabelle2 angezeigt wird.
4. Ich klicke auf Tabelle.J12, wo "Meier" schon steht
5. [color=#FF0000][b]In Tabelle.A1 erscheint "Meier"[/b][/color]
6. In Tabelle1.A2 ....

Alternativ genügt mir auch die Ausgabe des auf die aktive Zelle bezogenen Wertes in Tabelle.A2
=SVERWEIS([b][i][u][color=#FF0000]???[/color][/u][/i][/b];Tabelle2.A2:G91;5)

Der [color=#FF0000][b]2.[/b][/color] und [color=#FF0000][b]5.[/b][/color] Schritt (bzw. [b][i][u][color=#FF0000]???[/color][/u][/i][/b]) ist mein Problem! Wie schreibe ich in Tabelle1.A1 (oder direkt in den SVERWEIS) den Wert der jeweils aktiven Zelle??



Für jegliche Hilfe sehr dankbar
Stefan

Hallo,

bitte entschuldigt den doppelten Thread, aber ich hätte für mein Problem lieber eine Funktion/Formel, die ich in eine Zelle eintragen kann, als ein Makro.

Ich habe eine Tabelle, in der ich in verschiedenen Zellen Nachnamen eintrage. Auf einem zweiten Tabellenblatt berechne ich (gewichtet nach Position auf Blatt 1), wie oft der Nachname bereits in der Tabelle steht. Diese Information hätte ich gerne bei der Eingabe auf dem ersten Blatt.

Meine Idee:
Ich schreibe in eine freie Zelle den Inhalt (Nachname) der [b]aktiven Zelle[/b] und hole mir den Zahlenwert vom 2. Blatt. Aber wie bekomme ich den Inhalt der aktiven Zelle dynamisch in eine andere geschrieben???

Vielen Dank
Stefan