Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

mit VBA Daten verschieben

Betrifft: mit VBA Daten verschieben von: Heiko
Geschrieben am: 24.08.2004 07:33:05

Moin Moin,

leider sind meine Excel und VBA Kenntnisse noch nicht so ....
Ich möchte gerne das die Daten aus der einen Tabelle (Angebote) wenn sie mit "erledigt" gekennzeichnet sind, z.B.: nach dem nächsten Neustart der Datei auf das Blatt „erledigt“ verschoben werden.
Könnte mir vielleicht jemand zeigen wie das geht, bzw. wie das dann auch eingefügt wird.

Danke schon mal im Voraus für Eure Hilfe!!

Meine Mappe: https://www.herber.de/bbs/user/10000.xls

Gruß
Heiko

  


Betrifft: AW: mit VBA Daten verschieben von: Wolfgang
Geschrieben am: 24.08.2004 08:00:30

Wäre zwar anders schöner und ginge auch ohne "selects", aber so ist es erstmal am einfachsten nachzuvollziehen - wie wenn dus mitm Recorder aufzeichnen würdest....

Diese Prozedur kommt ins VBA-Projekt deiner Mappe in "This Workbook" oder "Diese Arbeitsmappe":

Private Sub Workbook_Open()
'1) Prüfen, ob mit "erledigt" gekennzeichnet, Annahme: TRUE in bestimmter Zelle
if Range("D30").value <> true then exit sub 'Ausstieg, wenn nicht erledigt

'2) zu verschiebenden Bereich ausschneiden
Application.CutCopyMode = False
Range("A1:D20").Cut

'3) zu verschiebenden Bereich einfügen
Sheets("Erledigt").Select
Range("A1").select
ActiveSheet.Paste

End Sub



  


Betrifft: AW: mit VBA Daten verschieben von: Wolfgang
Geschrieben am: 24.08.2004 08:02:22

PS.: Deine Mappe hab ich mir nicht angeschaut.... musst du dem Sinn nach übernehmen und übertragen....


  


Betrifft: AW: mit VBA Daten verschieben von: Heiko
Geschrieben am: 24.08.2004 08:14:55

Hallo Wolfgang,

dank Dir erst mal!
Ich weiss leider >noch< nicht wie ich das Skript einfügen kann.
Könntest Du vielleicht noch kurz beschreiben wie ich es einbinde?

Gruß
Heiko




 

Beiträge aus den Excel-Beispielen zum Thema "mit VBA Daten verschieben"