Automatisches kopieren einer Tabelle im selben Worksheet

Guten Tag,

ich bin leider noch recht frisch in Sachen VBA und suche deshalb Hilfe.

Folgendes möchte ich etablieren:

Ich habe ein Worksheet mit der Bezeichnung A.

Im Bereich A3:BG9 liegt eine Tabelle, teilweise mit Formeln hinterlegt und vollständig eingerahmt. Diese Tabelle ist eine Blanco Vorlage, die nicht verändert wird.

Die gleiche Tabelle inkl. Formeln und Rahmen kopiere ich nun mit Abstand von einer Zeile in den Bereich A11:BG17. In diese Tabelle sollen teilweise Daten eingetragen werden. Was ich nun möchte ist: wenn ich in die Zelle A11 etwas eintrage, soll wiederum im gleichen Abstand nach unten in den Bereich A19:BG25 die Blanco Tabelle von oben (A3:BG9) inkl. der dort hinterlegten Formeln und dem Rahmen automatisch reinkopiert werden.

Wie kann ich dies mit VBA bewerkstelligen?

Wozu: Ich muss täglich mehrfach Daten erfassen und möchte die Blanco Tabelle nicht jedes Mal händisch in die Excel kopieren.

Vielen Dank für eure Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Range("BJ1") If Target.Address(0, 0) = .value then Application.enableEvents = false Range("A3:BG9").Copy destination:=Range(.value).Offset(8, 0) .value = Range(.value).Offset(8, 0).address(0, 0) Application.enableevents = true End if End with

With Range("B2") If Target.Address(0, 0) = .Value Then Application.EnableEvents = False Range("A4:BZ9").Copy Destination:=Range(.Value).Offset(7, 0) .Value = Range(.Value).Offset(7, 0).Address(0, 0) Application.EnableEvents = True End If End With

Hallo Daniel,

das mit der automatischen Verschiebung des Markers wäre eine gute Sache.

Wie lässt sich das VBA technisch bewerkstelligen?

Und noch eine weitere Frage:

Ich habe 3 Worksheets mit diesen Tabellen. Hintergrund ist, dass ich Waren auf 3 verschiedenen Onlineplattformen verkaufe (z. B. Amazon, Ebay und Onlineshop).

Jetzt ist es so, dass ich meine verkauften Waren mit DHL, Hermes und GLS versende, je nachdem was aufgrund der Größe und Gewicht am günstigsten ist. Ich habe also in jeder der Tabellen, die je einen Verkauf erfassen ein Dropdown Menü erstellt, bei dem man DHL, Hermes und GLS auswählen kann.

In der Praxis kommt es vor, dass ich an einem Tag mal nur einen Versanddienstleister anfahre, mal zwei, mal alle drei. Daraus ergibt sich eine unterschiedliche Kilometerzahl, die ich steuerlich absetzen kann.

Es ergeben sich je nach Fahrkonstellation folgende Distanzen:
Fahre ich zu DHL: 5 km
Fahre ich zu Hermes: 6 km
Fahre ich zu GLS: 7 km
Fahre ich zu DHL + Hermes: 13 km
Fahre ich zu DHL + GLS: 15 km
Fahre ich zu Hermes + GLS: 17 km
Fahre ich zu DHL + Hermes + GLS: 20 km

Nun möchte ich ein extra Worksheet Fahrten erstellen, auf dem die Fahrzeiten in Abhängigkeit des Datums automatisch zusammengerechnet werden. Ich würde einfach alle Tage eines Jahres untereinander in Zellen schreiben und nebendran soll dann das Makro für die Berechnung der Kilometer rein.

Das Makro muss also folgendes tun:

Prüfen, ob in Worksheet Amazon / Ebay / Onlineshop ein bestimmtes Datum in einer der Tabellen hinterlegt ist. Wenn ja, muss es für jedes separate Datum zu dem jeweiligen Dropdown Menü gehen und den Wert darin auslesen (je nach Wahl: DHL / Hermes / GLS)

Die Dropdown Werte aller drei Worksheets miteinander kombinieren und den richtigen Rückgabewert an Kilometern eintragen.

Geht das irgendwie?

With Range("AuslöseZelle") If Target.Address = .Address Then Application.EnableEvents = False Range("A4:BZ9").Copy Destination:=.Offset(7, 0) Range(.Value).Offset(7, 0).Name = "AuslöseZelle" Application.EnableEvents = True End If End With

Beliebteste Forumthreads (12 Monate)

Automatisches kopieren einer Tabelle im selben Worksheet

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisches kopieren einer Tabelle im selben Worksheet

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread