Makro - Vergleich vor und nach ausführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro3() Application.ScreenUpdate = False With Worksheets("Punkte") LZA = Cells(Rows.Count, 1).End(xlUp).Row Columns("I:I").Insert Columns("E:E").Insert Range("I2:I" & LZA).Copy Range("J2:J" & LZA).PasteSpecial Paste:=xlPasteValues Call Tabelle6.DateienAuflisten With .Range("E2:E" & LZA) .FormulaLocal = "=WENN(UND(J2=0;I2>0);KÜRZEN((HEUTE()-WOCHENTAG(HEUTE();2)+2-3)/7)*7+3;D2)" End With Range("E2:E" & LZA).Copy Range("D2:D" & LZA).PasteSpecial Paste:=xlPasteValues Range("E:E,J:J").Delete End With Application.ScreenUpdate = True End Sub

Hallo Christian,
sehr gut.
2-3 "Observationen":
_ es funktioniert, weil Du zufällig gerade auf dem Blatt "Punkte" warst.
Ein "With" ist eine Verkürzung der Schreibweise. Anstatt


Worksheets("Punkte").Columns("I:I").Insert
Worksheets("Punkte").Columns("E:E").Insert

wird


With Worksheets("Punkte")
.Columns("I:I").Insert
.Columns("E:E").Insert
End With

geschrieben.
Sehr wichtig sind die Punkte vor dem "Columns". Genau diese Punkt sagen, dass es sich auf dem "With" bezieht. Ohne gilt diese Anweisung für das aktuell aktiven Blatt (in dem Fall hier, weil "Columns" eine Eigenschaft, der sich auf einem Blatt bezieht. Ein Objekt vom Typ Blatt ("Worksheet") ist immer der Parent von einem Objekt vom Typ Column)
_ auch richtig gemacht: die Reihenfolge des Einfügens: zuerst "I:I" dann "E:E". Umgekehrt ist fehler anfällig: wenn man ein neues "E:E" einfügt, ist "I:I" der ehemalige "H:H" !!
_ ein "Copy-PasteValue" kann so verkürzt:


.Range("J2:J" & LZA) = .Range("I2:I" & LZA).Value

Quelle und Ziel müssen dieselbe Anzahl an Zeilen und Anzahl an Spalten.
Ein Copy-PasteValue könnte wiederum so gekürzt werden:


    .Range("I2:I" & LZA).Copy
.Range("J2").PasteSpecial Paste:=xlPasteValues

Relevant in dem Fall ist nur die Anker-Zelle (Hier J2).
_ Wenn Du die Spalte E:E, J:J nicht löscht, sondern nur deren Inhalt, dann müsstest Du nicht sie wieder erzeugen


    .Range("E:E,J:J").ClearContents

Hier auch: entweder beide Spalten gleichzeitig löschen (hast Du gemacht), oder zuerst die weiteste rechts, dann weiter nach links. Wenn E:E zuerst gelöscht wäre, müsste man I:I löschen, um die bisherige J:J zu löschen.
Der Rest kann ich nicht beurteilen. Heute funktioniert es und kann nichts entdecken, warum es morgen nicht funkionieren sollte (immer das grosse Problem mit VBA!)
Also ausser die Punkten, alles super gemacht. Weiter so.
Noch ein paar Klugscheisserei am Freitag (Freitag ist KS-Tag):
_ immer zuerst Makrorekorder verwenden (mache ich immer noch). Kurze Aufnahme machen und Code anschauen.
_ Code im Schritt-Modus laufen lassen (F8)
_ dabei das Lokalfenster offen halten (Ansicht, Lokalfenster), um den Zustand und die Struktur der Variablen (Objekt-Modell) zu sehen.
_ neugierig sein: was steht in dem Objekt hinter dem "+"
_ Überwachungsausdrücke verwenden: Variable oder Ausdruck markieren, Rechtsklick auf "Überwachung hinzufügen..."
_ Variable (theoretisch so viel wie nötig, aber so wenig wie möglich, aber nicht im Lern-Modus) verwenden, nur um deren Stand im Lokalfenster zu beobachten.
_ auch gut: Debug.Print xxVariableName, druckt den Zustand eine Variable in das Direktfenster. Ansicht, Direktfenster. Dort kann man der Inhalt der Variable beeinflussen.
_ wenn ein VBA-Begriff nicht bekannt ist, Cursor drauf platzieren und Strg+F1, um an der Online-Hilfe zu gelangen. Dort sich die Zeit nehmen, grundlich zu lesen (die Aufmachung ist nur am Anfang gewöhnungsbedürftig) und die gegebenen Beispiele anzuschauen.
_ wenn die erste Schritte schon gemacht sind, das Objektkatalog anschauen
VG
Yal

Sub Makro3() Application.ScreenUpdate = False With Worksheets("Punkte") LZA = Cells(Rows.Count, 1).End(xlUp).Row .Columns("I:I").Insert .Columns("E:E").Insert .Range("J2:J" & LZA) = .Range("I2:I" & LZA).Value Call Tabelle6.DateienAuflisten With .Range("E2:E" & LZA) .FormulaLocal = "=WENN(UND(J2=0;I2>0);KÜRZEN((HEUTE()-WOCHENTAG(HEUTE();2)+2-3)/7)*7+3;D2)" End With .Range("D2:D" & LZA) = .Range("E2:E" & LZA).Value .Range("E:E,J:J").Delete End With Application.ScreenUpdate = True End Sub

Hi
Also es geht um Hilfsspalte, die das Makro einfügt und wieder löscht.
Die sollten ans Ende und das geht am einfachsten so.
Die With-Klammer kennst du ja, die kann man auch für Zellbereiche einsetuen die man öfters benötigt.
Zuerst hole ich mir den verwendeten Zellbereich:


With ActiveSheet.UsedRange

Hiervon nehme ich die letzte Spalte und gehe davon eine Spalte nach rechts:
Jetzt habe ich als WITH-Objekt die erste leere Spalte neben der Tabelle, egal wie groß die Tabelle ist. Den Zeilenbereich hat man auch gleich automatisch mit ermittelt.
Wenn man mehrere Hilfsspalte braucht, und die Überschrift nicht dabei haben will, kommt noch resize dazu, hier für 3 Hilfsspalte ab Zeile 2:


With ActiveSheet.UsedRange
With .Columns(.Columns.Count).Offset(1, 1).Resize(.Rows.Count - 1, 3)

Die einzelnen Spalten dieses Hilfsspaltenblocks sprichst du dann mit
.Columns(1), .Columns(2) usw an, die Indizierung bezieht sich hier auf die Spaltennummer im Block, daher immer 1, 2, 3
Also als ganzes etwa so


With ActiveSheet.UsedRange
With .Columns(.Columns.Count).Offset(1, 1).Resize(.Rows.Count - 1, 3)
.Columns(1).FormulaR1C1 = "= ..."
.Columns(2).FormulaR1C1 = "= ..."
.ClearContents
End With
End With

Für die Formeln solltest du dir angewöhnen, die R1C1-Schreibweise anzuwenden (bzw Z1S1 auf deutsch).
Das hat den Vorteil, dass du die Adressen in der Formel meistens unabhängig von der Spalte schreiben kannst, in welcher die Formel steht.
Wie die Formel in R1C1 aussieht, kannst du leicht selber rausfinden:
Schreibe die Formel normal in eine Zelle und lass dir den Formeltext im Direktfenster mit ?Selection.FormulaR1C1 anzeigen.
Dabei solltest du in der Formel alle Zellbezüge, die nicht zwingend relativ sein müssen absolut setzen, das ist in R1C1 besser als anders rum.
Auch solltest du in den Hilfsspaltenformeln alle Dpaltenvezüge auf die Originaltanelle absolut setzen und alle Bezüge auf eine andere Hilfsspalte relativ. Wenn du das machst, past dein Formeltext auch weitern, auch wenn sich die Hilfsspalte verschieben weil die Haupttabelle wächst.
Gruß Daniel

With ThisWorkbook.Worksheets("WieKannManSoBlödSeineTabelleSoLangeNamenZuGeben") Set Rng = Intersect(Range(.Range("C1"), .Range(1, .Columns.count).End(xlToLeft)).EntireRow, Range(.Range("A1"), .Cells(.Rows.count, 14).End(xlUp))) End With

Sub Makro3() Application.ScreenUpdating = False With Worksheets("Punkte") LZA = Cells(Rows.Count, 1).End(xlUp).Row .Columns("I:I").Insert .Columns("E:E").Insert .Range("J2:J" & LZA) = .Range("I2:I" & LZA).Value Call Tabelle6.DateienAuflisten With .Range("E2:E" & LZA) .FormulaLocal = "=WENN(UND(J2=0;I2>0);KÜRZEN((HEUTE()-WOCHENTAG(HEUTE();2)+2-3)/7)*7+3;D2)" End With .Range("D2:D" & LZA) = .Range("E2:E" & LZA).Value .Range("E:E,J:J").Delete End With Application.ScreenUpdating = True End Sub

Sub test() 'Variante über Spalten Adresse mit Range Spalte = .Cells(1, 1000).End(xlToLeft).Address With .Range(Spalte).Offset(0, 1) 'Variante über Spalten Index mit Cells Spalte = .Cells(1, 1000).End(xlToLeft).Column With .Cells(1, LZ1 + 1) End Sub

LZA = .Cells(Rows.Count, 1).End(xlUp).Row Spalte = .Cells(1, 1000).End(xlToLeft).Address With .Range(Spalte).Offset(1, 1).Resize(LZA - 1, 0) .FormulaLocal = "=XVERWEIS(A2;Updates!C:C;Updates!A:A;"";0;1)" .Formula = .Value2 End With

Beliebteste Forumthreads (12 Monate)

Makro - Vergleich vor und nach ausführen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread