Office: (Office 365) Bestimmte Zellen auf Knopfdruck in andere Zellen kopieren

Ich versuche gerade meine Bestellschein-Tabelle zu überarbeiten und würde gerne meine Makros ändern.

Ich habe eine Beispieltabelle eingefügt, dort sind verschiedene Frachten aufgeführt und können zur Berechnung dienen. Die Tabelle ist sehr umfangreich, da sie früher andere Frachtunternehmen aufgeführt hat, aber sind halt immer noch drin.

Aktuell sind nur drei Frachtunternehmen relevant. Ich habe das mal in der Beispieltabelle kenntlich gemacht:
Fracht 1: Spalte G und H
Fracht 2: Spalte G und I
Fracht 3: Spalte N und O

Aktuell läuft es so ab, dass ich das Feld mit der Postleitzahl anklicke und dann auf eine Schaltfläche mit der gewünschten Frachtart (wie in der Tabelle Fracht 1-3) klicke, dann wird die komplette Zeile in eine andere Zeile kopiert und von dort aus wird mittels einer Formel die Postleitzahl, Ort, Kosten übernommen.
Was hier nicht so schön ist: In den relevanten Eingabefeldern steht dann eine Formel (z.B. =N1). Wenn nun aber die Rechnungs- und Lieferadresse abweicht (was selten ist, aber vorkommt), kann man zwar die Formel überschreiben, aber ist halt nicht so schön.

Deswegen frage ich mich gerade, ob man nicht auch ein Makro oder ein VB Code machen kann, der alles direkt in die Eingabefelder kopiert und in etwa so arbeitet:
(hier z.B. für Fracht1)
1. Ermittle die aktiv gewählte Zelle (also die Postleitzahl)
2. Schreibe nun den Wert in dieser Zeile vom Feld PLZ in Feld C18 und C24.
3. Schreibe nun den Wert in Dieser Zeile vom Feld Ort in C19 und C24
4. Schreibe nun den Wert in Dieser Zeile vom Feld Maut in Feld F18
5. Schreibe nun den Wert in Dieser Zeile vom Feld Fracht in Feld F19
6. Schreibe nun in das Feld F22 die Frachtart "1"
7. Schreibe in das Feld F23 "Eigenes Fahrzeug"
8. Verbleibe in dem ausgewählten PLZ-Feld (soll bewirken, dass man nacheinander die verschiedenen Frachten auswählen kann um dem Kunden schnell mitzuteilen, wie sich die Kosten verändern)

Die Frachtart ist dahingehend wichtig, dass z.B. manche Fuhrunternehmer die Ware auf Paletten brauchen, die dann automatisch mitberechnet werden sollen. Das kommt dann aber erst im nächsten Schritt und kann ich voraussichtlich mit einfachen "wenn dann" Formeln lösen. Bzw. wollte ich gerne Kontrollkästchen (Wahr/Falsch) einführen, wo man bei Bedarf auch Manuell Posten einfügen kann. Dazu müsste dann in eine Zelle nur "Wahr" eingefügt werden, ich denk das bekomme ich hin, wenn es das Grundgerüst gibt (Ich kann es aber noch in die Beispieltabelle einfügen, das die Fracht 3 immer mit Paletten gemacht werden muß).

Vielleicht kann mir hierbei ja jemand zur Hand gehen, wie das am besten zu lösen ist, weil ich von VBA wenig bis gar keine Ahnung habe.

Ferner würde mich gerade interessieren, ob man sich irgendwie anzeigen lassen kann, welche Codeblöcke in der aktuellen Arbeitsmappe irgendwo in der Benutzung sind und welche nicht benutzt werden, da ich im Laufe der Zeit sehr viel herumprobiert habe und möglicherweise den ein oder anderen Codeblock gar nicht mehr nutze. Wenn nicht muß ich suchen, eigentlich habe ich sie ganz gut benannt.

Vielen Dank

 

Hallo Andreas,

du schreibst da etwas von Codeblöcken, hast aber eine *.xlsx-Datei hochgeladen, das gibt es keinen Code.