OpenOffice.info

Da dieses Kopieren wohlmöglich nicht ganz so einfach ist, habe ich ganz unten in der Tabelle 1 eine Zeile angelegt, aus der sich die Tabelle 2 statisch bedient. Nun muss ich es noch schaffen anhand der ID den Inhalt dort hinein zu kopieren.

Wie kann man das nur lösen??

Gruß
Thomas

Sub Zwischenprüfung()
    Sheets("Datenbank").Select
    
    Range("A2").Select
    Range("A4:AW1155").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range( _
        "A1160:AW1160"), Unique:=True
    
    Range("A4:AW1155").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range( _
        "A1160:AW1160"), Unique:=True
 
    Sheets("Zwischenprüfung").Select
    Range("AJ7").Select
'   AktivesFenster.AusgewähltesBlattListe.Ausdrucken Von:=1; Bis:=1; _
'   Kopien:=1
End Sub

Hallo,

wir haben das Makro in VBA vorliegen, leider weiß ich nicht weiter. Es sollte ja in StarBasic laufen ;)

[code]
Sub Zwischenprüfung()
Sheets("Datenbank").Select

Range("A2").Select
Range("A4:AW1155").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range( _
"A1160:AW1160"), Unique:=True

Range("A4:AW1155").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range( _
"A1160:AW1160"), Unique:=True

Sheets("Zwischenprüfung").Select
Range("AJ7").Select
' AktivesFenster.AusgewähltesBlattListe.Ausdrucken Von:=1; Bis:=1; _
' Kopien:=1
End Sub
[/code]

Hat jemand damit Erfahrung?

Gruß
Thomas

Hallo,

danke für den Tipp. Werde mir den Link mal ansehen. Ich habe mir auch heute das Buch "Makros in OpenOffice.org 2.0" aus dem Galileo Press Verlag gekauft. Ich hoffe, ich werde dadurch etwas schlauer.

Ziel ist es, eingegebene Daten in Tabelle 1 in ein sog. Endprüfprotokoll und in ein Zwischenprüfprotokoll zu übernehmen. Das benötigen wir bei uns in der Produktion. Unsd die Leute in der Produktion sollen es selber drucken können, daher muss es so einfach wie möglich sein.

Gruß
Thomas

Hey tomi,

[quote]Ist das lösbar? Würde mich über jeden Tipp mega freuen! [/quote]

Sicher :D
Was für einen Tipp brauchst du denn? Den Ablauf hast du doch schon sauber beschrieben - jetzt musst du nur noch das Makro programmieren.
Beschäftige dich mit:
1.) Formualren - und wie man die einzelnen Felder ansteuert
2.) Calc-Dokumenten - und wie man die Zellen ausliest
3.) Basic - um eventuelle Berechnungen und nötige Umwandlungen durchführen zu können.

Andererseits: Kannst du erklären, was das zum Ende werden soll? Wozu die zwei Formulare? Wäre das nicht möglicherweise mit einem Dialog besser zu erreichen?

Ein schönes Dialogbeispiel könnte ich dir empfehlen:
http://www.amt-wiesbaden.de/index.php?ziel=1amt08&rm=r01
Dort rechts das Fahrtenbuch - für die 2.0. Mit Dokumentation. Ist recht lehrreich - und möglicherweise bestens für deine Anwendung geeignet.
Aber wenn es Formualre sein müssen, die werden ein bischen anders angesteuert.

Viele Grüße
Thomas

Hallo zusammen,

ganz kurz zu mir: ich bin gerade dabei mich in StarBasic einzuarbeiten und stehe vor meiner ersten unlösbaren Aufgabe...

Ich habe ein Calc-Dokument mit 3 Tabellen

Tabelle 1 enthält sämtliche Daten (in Tabellenform)
Zelle A2: ID (zum manuellen Eintragen)
Zeile 4: Der Tabellenkopf (A-AW)
Zeile 5 bis ...: die Daten

Nun sollen die Daten einzeln in die zweite Tabelle übernommen werden. Dazu habe ich mir gedacht, da jeder Datensatz eindeutig ist (hat eine Zeilennummerierung in Spalte A), diese Datensatznummer einfach in A2 eintragen und per Makro in das vorgefertigte Formular in Tabelle 2 und Tabelle 3 zu übernehmen.

Zum Ablauf:

1. Zeilennummer in A2 eintragen
2. Macro anstoßen
3. die Daten (z.B. aus Zeile 500) in das Formular in Tabelle 2 übernehmen

Ist das lösbar? Würde mich über jeden Tipp mega freuen!

Danke und Gruß
Thomas