das mit der "einfachen" Antwort war nicht so ganz zutreffend, wenn Du weitere Eingaben darunter vornimmst. Das ist ja nun inzwischen geklärt und gelöst.
Das mit den Makros und den Steuerelementen kommt etwas darauf an, ob Du die Formularsteuerelemente nimmst oder die ActiveX.
Wenn Du die aus Formular nimmst, wird Dir im Dialog nach dem Einfügen eine Liste mit eventuell schon vorhandenen Makros angezeigt. Da kannst Du einfach eins auswählen, oder du erstellst mit Hilfe das Buttons "Neu" den Rahmen für ein neues. Hier könntest Du Dein Druckmakro auswählen.
Bei ActiveX musst Du Dir den Code anzeigen lassen, der Rahmen steht dann in jedem Fall im entsprechenden Tabellenblattmodul. Das ist wohl auch die Variante, de Du genommen hast - sieht man an Deinem codeposting - und wo Dir Zwergel die Lösung gepostet hat.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
dass mit dem Druck und dem Steuerelement ist erledigt und funktioniert auch einwandfrei. Herzlichen Dank dafür!
Die Übernahme aus der letzten Zeile "Ausgaben" bringt mich noch um. Der Code von Zwergel funktioniert eigentlich schon ganz gut, nur wenn automatisch eine neue Zeile im Datenblatt "Ausgaben" generiert wird, aktualisiert sich die Zelle im anderen Datenblatt nicht. Eingetragen wird in Spalte A eine Zahl zwischen 1 und 40 und der Name des Fahrer in Spalte B wie z.B Müller. Ändere ich den Code auf Spalte B wo ein Name also Text steht kommt nur #NV. Zellenformate stehen jeweils auf "Standard". Hab schon versucht in Spalte B auf Text zu stellen, bringt aber auch nichts... . =MAX(INDEX(Ausgaben!B1:B999;VERWEIS(2;1/Ausgaben!B1:B999);ZEILE(1:999)))
Gebe ich aber in Spalte A eine neue Zahl, also z.B 41, also eine Zahl ,die in den vorherigen Zeilen noch nicht bekannt ist, wird sie übernommen.? !
Hab nun heute stundenlang alles mögliche probiert aber es läuft einfach nicht...hätte nie gedacht, dass es so schwierig ist.......
Eigentlich denkt man so simpel, letzte Zeile aus Spalte A und B des Tabellenblatts "Ausgaben" auslesen und im neunen Tabellenblatt unter z.B A6 Und A8 ausgeben und gut ist.
das kommt dadurch, dass man für Zahlen und Text unterschiedliche Formeln nehmen muss oder kann.
Nimm für Spalte B =VERWEIS(2;1/ISTTEXT(Ausgaben!B1:B1000);Ausgaben!B:B)
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28 • Zenon
funktioniert dank eurer tollen Hilfe einwandfrei. Und ich verstehe die Formeln nun besser, wenn es auch oft an Kleinigkeiten scheitert, was wann wie in welcher Reihenfolge stehen muss. Aber wie man oben sieht führen ja zwei unterschiedlich aufgebaute Formeln zum selben Ziel.
Nochmals herzlichen Dank.....
brauch nun mal ne Excel-Pause ....bleib aber am Thema dran..... :05:
ich versuch es mal so zu erklären. Im Datenblatt "Bestand" steht in Spalte A und B das Auto und der Fahrer. Diese Daten werden auch grundsätzlich nicht verändert. Die "Autos" haben fest zugewiesene Nummern und Fahrer . Im angehängten Beispiel 1-3, Müller, Meier, Kunze.....In Spalte C steht jeweils der aktuelle Status entweder aktiv oder inaktiv.
Im Datenblatt "Ausgaben" wird dokumentiert, wann der Fahrer aktiv oder inaktiv wurde. Also entweder steht dort in der Spalte D aktiv oder in Spalte G inaktiv.
Ich möchte erreichen, dass sobald im Datenblatt "Ausgaben" sich der Status eines Autos /Fahrer ändert, dieser aktuelle Status im Tabellenblatt "Bestand" in der Spalte C von aktiv auf inaktiv oder umgekehrt aktualisiert.
In der Praxis soll somit im Datenblatt "Bestand" der jeweils aktuelle Status erkennbar sein. Das Datenblatt "Ausgaben" dient zur Dokumentation.
Geht das irgendwie?
Nächstes Problem, der Fahrer Müller ist ausgeschieden.....Neuer Fahrer Schulte übernimmt sein Auto....möchte nun erreichen, dass sobald im Datenblatt "Ausgaben" sich der Name auf Schulte ändert, sich das Datenblatt "Bestand" automatisch anpasst. Ok könnte das auch manuell jedes mal anpassen aber geht das auch automatisch. Hab versucht die Formeln entsprechend anzupassen nur leider ohne Erfolg. Ist vermutlich auch zu komplex um das noch mit Excel lösen zu können !?
For Each rngTab1 In Sheets("Ausgaben").Range("B2:B" & Range("B65536").End(xlUp).Row)
Set rngTab2 = Sheets("Datenbank").Columns("B:B").Find(What:=rngTab1, Lookat:=xlWhole)
If Not rngTab1 Is Nothing Then
rngTab1.EntireRow.Copy Destination:=rngTab2.EntireRow
End If
Next rngTab1
End Sub
Funktioniert nur leider so nicht....kann mir jemand die Funktion rngTab1 erklären? was bewirkt sie genau? und Loolkat?