VBA Formel kopieren und ausführen | Herbers Excel-Forum

Hallo zusammen,
aus Access hole ich per Query immer wieder verschiedene Datensatzmengen zur weiteren Verarbeitung in ein Worksheet ("Produktion"). Überschriften A1:T1 , Datensätze unterschiedliche Anzahl
Zur weiteren Auswertung, muss ich häufig noch Formeln daneben setzen (z.B. in Spalte U)
Da normalerweise zumindest die Zeile 2 gefüllt ist, habe ich in U2 schon eine Formel:
=Kalenderwoche(A2;2), diese Formel ist für meine Wünsche ausreichend.
1. die Anzahl der Datensätze ist mal mehr, mal weniger
2. die Spalte A ist immer gefüllt (hier gibt es innerhalb des Imports keine Leerzellen)
Nun möchte ich folgendes erreichen:
A. nach einem neuen Datenimport sollen die Formeln beginnend mit U3 gelöscht werden
B. Die Formel aus U2 soll bis zur Zeile des letzten Datensatzes in jede Zeile kopiert werden
C. alles sollte, einschließlich der Berechnung automatisch nach dem Import ablaufen
Spezial:
Gibt es auch eine Lösung für den Fall, dass in Spalte A doch mal ein Leerfeld vorkommt?
Hat von Euch jemand eine tolle Lösung für mich? Würde mich sehr freuen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Makro() Dim lngLR As Long With Sheets("Tabelle1") .Columns(21).ClearContents lngLR = .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(2, 21).FormulaR1C1 = "=KALENDERWOCHE(RC[-20],2)" .Cells(2, 21).Resize(lngLR).FillDown End With End Sub

Sub Formel_kopieren() Dim lngLR As Long With Sheets("Tabelle3") .Columns(21).ClearContents lngLR = .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(2, 21).FormulaR1C1 = "=KALENDERWOCHE(RC[-20],2)" .Cells(2, 21).Resize(lngLR).FillDown End With End Sub

Sub Makro() Dim lngLR As Long With Sheets("Produktion") .Range("U2:U50000").ClearContents lngLR = .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(2, 21).Resize(lngLR - 1).FormulaR1C1 = "=KALENDERWOCHE(RC[-20],2)" End With End Sub

Hallo Andreas,
prinzipiell kommt Standardcode in allgemeine Module (Einfügen---Modul) wie z.B. Modul1.
Du hast Standardcode. Den mußt du selbst starten.
Nun kennt Excel noch sog. Ereigniscode, das ist Code der AUTOMATISCH durchgeführt wird wenn ganz bestimmte Eriegnisse auftreten.
Doppelklicke im Editor links auf einen Blattnamen, dann wähle oben in der Mitte "worksheet" aus. Dann siehst du rechts in dem Dropdownfeld alle Ereignisse die Exce-Vba kennt.
Wähle da z.B. Change aus, der Editor schreibt dir automatisch die Prozedurhülle hin:


Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

Schreib da mal
MsgBox "Huhu"
hinein.
Wenn du nun im Blatt eine beliebige Zelle abänderst kommt die Msgbox.
Du willst ja so automatischen Code.
Problem ist nur, Chnage reagiert nur auf z.B. manuelle Wertänderung einer zelle, nicht wenn sich der Zellwert durch eine Formel ändert.
Du impotierst da wohl mit Query Daten in Zellen. Jetzt weiß ich nicht auswendig ob dann das Change-Ereignis ausgelöst wird oder nicht.
Probiers einfach mal aus.
Schreibe den Code
Private Sub Worksheet_Change(ByVal Target As Range)
Msgbox "Huhu"
End Sub
im Editor in das Blattmodul, z.B. Tabelle3, dort importiere dann daten, kommt die Msgbox geht es, kommt sie nicht so geht es derart nicht das automatish hinzuzaubern.
Vielleicht ginge es dann mit dem Calculate-Ereignis...
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

VBA Formel kopieren und ausführen | Herbers Excel-Forum

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Formel kopieren und ausführen | Herbers Excel-Forum

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread