Makros für 3 Tabellen mit Dropdown und Button

Hallo,
ich kenne nur ein paar Grundlagen von Excel.
Von VBA habe ich leider gar keine Ahnung.
Nun benötige ich allerdings ein 2-3 Makros und damit Hilfe.
Folgende Situation:
Ich möchte Übertragungsraten errechnen und speichern.
Dazu habe ich bereits zwei Zeilen in Tabelle1 (Titel "Rechner") angelegt.
In Zeile 2 befinden sich die Überschriften für die Spalten von A-J.
In Zeile 3 können dann die Daten eingetragen werden und die benötigten Ergebnisse werden durch Funktionen bereits errechnet. Die Zellen sind wie gewünscht formatiert.
In B2 habe ich ein Dropdown-Menu (Liste) eingefügt mit den Parametern "Abruf" und "Archivierung". Zusätzlich existiert ein Button "Speichern" in J4.
Zielstellung:
Der Benutzer soll bei Eingabe der Daten im Drop-Down (Zelle B3) auswählen müssen um welchen Typ es sich handelt, "Abruf" oder "Archivierung".
Bei Aktivierung des Buttons "Speichern" soll dann je nach Typ in Tabelle 2 (Abruf) oder Tabelle 3 (Archivierung) die ganze Eingabezeile (bzw. die Zellen A3 - J3), im selben Format und mit den selben Werten gespeichert werden. Die Funktionen müssen dabei nicht übernommen werden.
Die kopierten Angaben (Zeilen/Zellen) sollen in Zeile 2 der jeweiligen Tabelle eingefügt werden. Zuvor dorthin kopierte Angaben sollen um eine Zeile nach unten verschoben werden. Nach 5 Zeilen sollen zwei Zeilen leer gelassen werden (7 u. 8).
In Zeile 7 möchte ich einen Mittelwert der in Spalte J enthaltenen Werte ermitteln wobei leere Zellen ignoriert werden sollen. Zeile 8 bleibt als optischer Absatz leer.
Ab Zeile 9 soll die Verschiebung nach unten der (in Zeile 7 und 8 pausierten) älteren Datensätze fortgeführt werden. Die Liste soll insgesamt höchstens 50 Einträge erfassen. Ab dem 51. Eintrag soll dann ganz unten der älteste Eintrag gelöscht werden.
Am Ende möchte ich noch die Eingabezellen zurücksetzen.
Zellen zur Eingabe von Zahlenwerten haben bereits eine Funktion um bei leerem Inhalt mit 0 zu arbeiten ebenso wie Zellen mit Berechnungen welche bei 0-Angaben Fehler angeben würden. Die Zelle B1 stellt mit =Heute das Datum bereit.
Was beim DropDown Menu (B3) bei ClearContent passiert weiss ich nicht genau.
Ich hoffe ich habe meine Problemstellung mit Worten bildlich darstellen können.
Falls nicht lasst es mich bitte wissen.
Ich danke im Voraus für eure Zeit und Bemühungen,
Grüße
Bud

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Edit:
Ich möchte noch darauf hinweisen, dass ich bereits selbst versucht habe ein Makro zu kreieren.
Ein kleiner Erfolg war darunter. So habe ich einen Code aus einem anderen Forum kopiert und etwas angepasst. Der "Speichern" Button hat dann zumindest die benötigten Zellen in die 2. Tabelle kopiert und nach unten fortlaufend angefügt, siehe Bild 1
Zur Veranschaulichung noch die erste Tabelle die ich nun mit dem Dropdpwn Menu erweitert hatte, Bild2
Die 3. Zeile, bzw. die Inhalte der Zellen von A-J sollen dann in die zweite Tabelle: Abruf und die dritte Tabelle: Archivierung, genauso aufgebaut wie in Bild3 und dann hier beschrieben nach Dropdown-Auswahl übertragen werden.
Auch habe ich lange versucht mir den Code selbst zusammen zu basteln, scheitere aber an meinen fehlenden Kenntnissen der Syntax. Folgende Beispiele hatte ich versucht miteinander zu verbinden:
Funktion um leere Felder zu ignorieren:
MITTELWERTWENN(Bereich, Kriterien, [Mittelwert_Bereich]) -> als Funktion um leere Felder zu ignorieren
Makro von dropdown
https://www.extendoffice.com/documents/excel/4421-excel-run-macro-from-drop-down-list.html
Um bei fehlender Auswahl des DropDown Menus den Makro nicht zu aktivieren:

Sub leer()
If Cells(1, 1).Value = "" Then
MsgBox "leer"
End If
End Sub

Zeile nach unten verschieben
https://www.herber.de/forum/archiv/1004to1008/1006509_Zeilen_nach_unten_verschieben.html

Sub NeueEingabeZeile()
'neue Eingabezeile in Zeile 7 einfügen
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
'Leerzeile einfügen
.Rows(7).Insert shift:=xlShiftDown
'Zeile 8 nach zeile 7 kopieren
.Rows(8).Copy Destination:=.Rows(7)
'Inhalte in Eingabezellen Zeile 7 löschen
.Range(.Cells(7, 3), .Cells(7, 6)).ClearContents 'Spalten C bis F
.Cells(7, 8).ClearContents 'Spalten G
'neue Zeilennummer Spalte A Zeile 7 eintragen
.Range(.Cells(7, 3), .Cells(7, 6)).ClearContents 'Spalten C bis F
.Cells(7, 1).Value = Application.WorksheetFunction.Max(.Range(.Cells(8, 1), _
.Cells(.Rows.Count, 1).End(xlUp))) + 1
End With
End Sub

http://www.clever-excel-forum.de/Thread-Teil-einer-Tabelle-um-eine-Zeile-nach-unten-verschieben
Anhang:
Bild1
Userbild

Bild2

Bild3

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect (Target, Range ("B3")) Is Nothing Then Select Case Range("B3") Case "Abruf": Speichern1 Case "Archivierung": Speichern2 End Select End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B3")) Is Nothing Then Select Case Range("B3") Case "Abruf": Abruf Case "Archivierung": Macro2 End Select End If End Sub

Beliebteste Forumthreads (12 Monate)

Makros für 3 Tabellen mit Dropdown und Button

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makros für 3 Tabellen mit Dropdown und Button

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread