Makro zum Kopieren

[Björn]

Hi,

ich bräuchte Hilfe bei einem Makro. Ich habe eine Tabelle: in der ersten Spalte habe ich eine laufende Nummer, in der Zeile der Nummer (praktisch rechts daneben, in anderen Spalten) stehen diverse Daten. Nun möchte ich mit einem Makro über die Angabe der laufenden Nummer, die Daten, die in dieser Zeile stehen, in eine andere vorher festgelegte Zeile kopieren. Ich hoffe ihr versteht was ich meine

Nun fehlt mir leider das nötige Wissen, wie ich an die Sache herangehen kann. Vielleicht kann mir jemand einen Tipp geben.

Gruss,
Björn

[tomi-w80]

Weiß wirklich niemand wie das geht?

Stehe vor dem selben Problem und google ist keine große Hilfe

[tomi-w80]

Hatte mit Hilfe des MS Office Forum relativ schnell eine Lösung erhalten. Leider nur in VBA.

Hat jemand eine Idee wie man dieses Makro Starbasic konform bekommt?

Code: Alles auswählen

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

Das Makro sagt ja aus, das die Werte mit der Zeilennummer in A2 in die Zeile A1160 bis AW1160 kopiert werden soll. Und an der Stelle hängt es bei mir. Wie soll ich OpenOffice sagen, dass er diesen Bereich kopieren soll?

Gruß
Thomas