OpenOffice.info

[quote="Eddy"]da kann man auch mal überlegen, ob eine Vorlage dafür geeignet ist...[/quote]

Da fällt mir spontan der [color=#0040FF]Daten>Datenpilot...[/color] ein, mit eingebauter Aktualisierung und Filter.

Ansonsten gibt es hier im Forum (wenn man mal, auch als Neuer) die Bekanntmachungen und ein paar Posts liesst, immer wieder die Hinweise auf Seiten, wo man sich Wissen aneignen kann (Dannenhöfer, Andrew, usw.).
Dann sollte man versuchen das Problem mal selbst in Code umzusetzen und wenn man dann nicht weiter kommt - dann kann man HILFE rufen.

Wer das nicht mag, der suche sich kommerzielle Hilfe. Stehe bereit, bin als "Rentner" auch gar nicht so teuer 8)

Hallo Hat keine Ahnung,

[quote="Hat keine Ahnung"] Da überlegt mann sich auch schon mal ob es nicht doch eine Möglichkeit gibt dies zu vereinfachen.[/quote]
da kann man auch mal überlegen, ob eine Vorlage dafür geeignet ist...

Mit vorgelegten Grüßen

Eddy

Sub Tabelle_kopieren
copy_names = array("DB1","DB2","DB3", "TB")
for i = 0 to ubound( copy_names() ) 
thisComponent.Sheets.copybyName("Tabelle1", copy_names( i ) , i+1 )
next
End Sub

Hallo
Ich bin erstaunt - für ein paar einmalige Arbeitsschritte die mit etwas gutem Willen in deutlich unter einer Minute per Hand erledigt werden können, fordert man hier "[b]dringend Hilfe[/b]" an, das per Makro umzusetzen, und klatscht noch ein wenig unbrauchbaren VBA-code untendran.

hier ein paar Zeilen zum Erstellen der 4 Kopien, für die Filter musst du einen anderen Dummen finden.
[code]Sub Tabelle_kopieren
copy_names = array("DB1","DB2","DB3", "TB")
for i = 0 to ubound( copy_names() )
thisComponent.Sheets.copybyName("Tabelle1", copy_names( i ) , i+1 )
next
End Sub[/code]