ganz einfach nur einen definierten zellbereich per makro kopieren

[Sennah]

hallo miteinander!

ich habe das Internet jetzt etwa eine stunde durchforstet und finde makro-codes für das kopieren von ganzen zeilen, zum kopieren und anschließenden einfügen, etc. etc.

was ich nicht finden konnte aber bräuchte wäre einfach folgendes:

einen makro-code nur für das kopieren eines definierten zellbereichs, also z.b. tabelle 1, C10:C20.

kann mir bitte jemand mit dem code aushelfen?

[Jörg]

Hallo sennah,

guck mal da:
http://www.dannenhoefer.de/faqstarbasic ... ieren.html

Gruß Jörg

[Sennah]

hallo jörg!

ich habe auch bei dannenhöfer schon gesucht, trotzdem danke für deine nachricht, auch wenn ich als nicht mit programmierungen vertrauter mensch in dem angeführten link keine lösung meines problems finden kann.

liebe grüße,
sennah

[Karolus]

Hallo

Ganze (Zeilen|Tabellenblätter|Spalten) sind letzlich auch Zellbereiche

Wenn du die gegebenen Beispiele nicht auf deinen Bedarf umschreiben kannst, dann lass es lieber ganz mit dem programmieren lassen!!!

[Sennah]

hallo karolus,

ich bräuchte aber eine kopie nicht einer zeile (horizontal), sondern eines wie in meinem beispiel beschriebenen spaltenbereichs (vertikal), also z.b. A10:A20. wie die für das kopieren von ganzen zeilen im Internet zu findenden makro-codes dann darauf umgeschrieben werden können -> genau das kann ich als mit programmierungen nicht vertrauter eben nicht...

liebe grüße,
sennah

[Jörg]

hallo sennah,
zur Erläuterung.

Code: Alles auswählen

sub kopieren
oDocument = ThisComponent
   oSheet1 = oDocument.Sheets.getByIndex(0)' Tabelle1 hier könnte Dein Quellbereich liegen
   oSheet2 = oDocument.Sheets.getByIndex(1) 'Tabelle 2 hier könnte Dein Zielbereich liegen
' Quellbereich festlegen
   oQuelleRange=oSheet1.getCellRangeByPosition(0,0,3,4)' dies ist der Zellbereich "A1:D3" aus der Quelle
   oQuellRangeAddresse = oQuelleRange.getRangeAddress
   oZiel = oSheet2.getCellByPosition(2,5) ' dies ist Zelle "C4", die erste Zelle des Zielbereiches
   oZielCellAdresse=oZiel.getCellAddress
   oSheet2.copyRange(oZielCellAdresse,oQuellRangeAddresse)
   end sub   

Gruß Jörg


[Moderation ,4]: CODE tags korrigiert

[Jörg]

Hallo nochmal,

Code: Alles auswählen

oQuelleRange=oSheet1.getCellRangeByPosition(0,0,3,4)' dies ist der Zellbereich "A1:D3" aus der Quelle 
oder
wie bei Dir 
oQuelleRange=oSheet1.getCellRangeByPosition(2,9,2,19)' dies ist der Zellbereich "C10:C20" aus der Quelle als Index, Zählung beginnt bei null
oder
oQuelleRange=oSheet1.getCellRangeByName("C10:C20")' dies ist der Zellbereich "C10:C20" aus der Quelle als Namen

Hoffe es hilft Dir weiter.

Gruß Jörg




[Moderation ,4]: CODE tags gesetzt

[Sennah]

hallo jörg,

danke für deine hilfe! eingefügt soll aber gar nix werden, nur in den zwischenspeicher kopiert werden...

wie würde der code ohne einfüge-Option aussehen? ich wäre dir sehr dankbar dafür!

[balu]

Hallo Sennah,

nur in den zwischenspeicher kopiert werden

Und dann? Was soll dann als nächstes geschehen? Was wsillst Du damit erreichen, wenn die Daten im Zwischenspeicher liegen?

Das sind ernst zu nehmende Fragen die Du beantworten solltest, um dir dann eventuell weiter zu helfen.



Gruß
balu

[Sennah]

hallo WIM!

jaaa! genau das ist es!!!

vielen, vielen dank WIM! das makro macht genau was ich brauche! nochmals vielen, vielen dank!!!

hab einen schönen tag, liebe grüße,
sennah

[Sennah]

hallo balu,

danke für deine hilfe, WIM hat es mit seinem code aber schon getroffen.

wenn die daten die ich kopiere im zwischenspeicher liegen werden sie von mir anschließend in einer anderen software weiterverarbeitet. da sich die dateien dieser software allerdings laufend ändern (benennung der dateien und ablageorte), füge ich sie manuell aus dem zwischenspeicher dort ein.

trotzdem danke für deine hilfe!

liebe grüße,
sennah

[balu]

Hallo Sennah,

ja okay. Wenn Du damit arbeiten kannst, dann ist es in Ordnung.



Gruß
balu