Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile ausdrucken, wenn Bedingung erfüllt

Zeile ausdrucken, wenn Bedingung erfüllt
09.04.2017 12:15:16
Maria
https://www.herber.de/bbs/user/112749.xlsx
Hallo, ich erstelle für meinen Chef eine Liste, weil ich am Telefon sitze. Nun hat er mich gefragt, ob er nicht eine von diesen Zeilen ausdrucken könne, dass daraus quasi ein Formular wird (oben die Daten und darunter der Betreff, damit mein Chef diesen Zettel dann zu Kundentermin mitnehmen kann). Eine Beispiel-Datei habe ich beigefügt. Mit Excel hatte ich bisher nicht so viel zu tun, bin jetzt Auszubildende im ersten Jahr und hoffe sehr auf eure Hilfe. Nach und nach erfahre ich (aus verschiedenen Foren) was man mit Makros machen kann. Ich habe also in die "I"-Spalte eine Schaltfläche eingefügt. Nun meine Frage: kann man es irgendwie einstellen, dass wenn man auf diese Schaltfläche klickt, dass die Zelleninhalte aus nur dieser einen Zeile zu einem Formular zusammengefasst werden und an einen zugewiesenen Drucker geschickt werden? Also dass mein Chef einfach auf die Schaltfläche klickt und dann direkt den Zettel in der Hand halten kann? Geht das? Ich denke mit dem Formular ist es verständlich (oder ich könnte noch so eine Beispiel Datei erstellen). Also einfach oben im oberen Fünftel die Daten (Spalten A-G) und darunter einfach nur der Betreff (Spalte H). Bitte helft mir! :-)

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile ausdrucken, wenn Bedingung erfüllt
09.04.2017 12:18:53
Hajo_Zi
in der Datei gibt es das gewünschte Formular nicht.
VBA wurde ja abgelehnt da XLSX Datei. Ohne VBA wird es nicht gehen. Warum sollte ich Deine Datei 2x speichern.

AW: Zeile ausdrucken, wenn Bedingung erfüllt
09.04.2017 18:19:47
Maria
https://www.herber.de/bbs/user/112753.xlsx
warum Sie die Datei zwei mal speichern sollen, kann ich nicht sagen. Habe jetzt in der Tabelle 2 ein Formular erstellt. Der Link anbei. (die datei ist in excel 2007, auf der arbeit habe ich excel 2010.) vielleicht deswegen? ist das so ein riesenunterschied?
AW: Zeile ausdrucken, wenn Bedingung erfüllt
09.04.2017 18:22:49
Hajo_Zi
Gut ich bin dann raus.
Bei mir eine Datei mit Makro die Endung XLSM, das ist bei Dir wohl anders.
Gruß Hajo
Anzeige
AW: Zeile ausdrucken, wenn Bedingung erfüllt
09.04.2017 19:03:54
Maria
ich habe ja noch kein makro eingefügt. da brauche ich ja auch hilfe, denn genau das kann ich nicht, daher habe ich die datei auch als eine einfach excel datei gespeichert..
AW: Zeile ausdrucken, wenn Bedingung erfüllt
10.04.2017 00:35:00
Werner
Hallo Maria,
ich habe deine ganzen Schaltflächen aus der Spalte I raus geschmissen. Ist viel zu umständlich dort dauernd in die neuen Zeilen wieder Schaltflächen rein zu kopieren.
Das Makro wird ausgelöst beim Doppelklick in irgendeine Zeile (ab Zeile 2) in Spalte I. Dann werden die Daten der doppelt angeklickten Zeile ins Druckblatt übertragen und -derzeit nur die Druckansicht geöffnet-. Wenn du bei Doppelklick den Ausdruck gleich starten willst dann einfach im Code
.PrintPreview durch .PrintOut ersetzen.
Der Code ist im Codemodul des Arbeitsblattes "TELEFONLISTE". Rechtsklick auf den Tabellenblattreiter - Code anzeigen
https://www.herber.de/bbs/user/112759.xlsm
Gruß Werner
Anzeige
AW: Zeile ausdrucken, wenn Bedingung erfüllt
11.04.2017 07:58:40
Maria
Hallo, bin jetzt auf der Arbeit und habe die Datei geöffnet, aber da passiert eigentlich nichts. Hängt es an Excel 2010 oder verstehe ich was falsch? nach meinem Vertändnis müsste doch sobald ich in der "Telefonliste" in einer Zelle ab der zweiten Zeile doppelklicke, der Wert in die Tabelle "Formular zum Ausdrucken" in die jeweilige dafür vorgesehene Zelle rüberkopiert werden. Oder habe ich da was nicht verstanden?
Und schade mit den Schaltflächen, weil allein schon das Doppelklicken wäre für meinen Chef zu umständlich. Es muss flott gehen, wenn er morgens nach der Teambesprechung die Zettel rausgeben muss. Vielleicht irgendeine andere Lösung?
Anzeige
AW: Zeile ausdrucken, wenn Bedingung erfüllt
11.04.2017 11:22:35
Werner
Hallo Maria,
wie meinst du das "passiert eigentlich nichts"?
Bei der Datei, die ich hochgeladen habe?
Wenn ja, dann..
Makros aktiviert?
sind uU die Eventmakros ausgeschaltet (EnableEvents = False)?
Leg mal ein allgemeines Modul mit folgendem Code an 
Public Sub Events_ein()
Application.EnableEvents = True
End Sub

Lass dieses Makro laufen und versuch es mit dem Doppelklick nochmal.
An der Excel-Version liegt es sicher nicht
Aber wenn es eh unbedingt mit Schaltflächen sein soll (wobei mir der Zeitgewinn zwischen einmal auf eine Schaltfläche klicken und doppelt in eine Zelle klicken jetzt nicht wirklich ins Auge springt).
https://www.herber.de/bbs/user/112804.xlsm
Gruß Werner
Anzeige
AW: Zeile ausdrucken, wenn Bedingung erfüllt
11.04.2017 13:27:26
Maria
hi ))) Sie sind wunderbar!!!! das klappt mit den schaltflächen! jetzt grübbel ich aber, weil ich versucht habe, den code auf meine anruferliste (das original) zu übertragen, aber die schaltflächen sind jetzt nicht mehr in spalte J, sondern in K. ändert sich dann der Code? an sich der aufbau ist genauso, wie in der beispiel datei, nur halt der inhalt ist ein anderer. ooooh, ich könnt heulen, weil es funktioniert!!!
AW: Zeile ausdrucken, wenn Bedingung erfüllt
11.04.2017 13:37:06
Werner
Hallo Maria,
nein, da ändert sich nichts, probiere einfach aus. Das Makro stellt fest welche Schaltfläche geklickt wurde, in welcher Zeile sich die Schaltfläche befindet und überträgt dann die Daten aus der entsprechenden Zeile.
Übrigens gilt im Forum das Du.😋
Gruß Werner
Anzeige
AW: Zeile ausdrucken, wenn Bedingung erfüllt
11.04.2017 14:37:34
Maria
ok, hallo du, allwissender. ich habe ja alles gleich gemacht, komplett, außer die spalte, aber! der schreibt mir, sobald ich auf "sub ausführen" klicke: Laufzeitfehler '-2147352571 (80020005)': das Element mit dem angegebenen Namen wurde nicht gefunden." dann habe ich auch "debuggen" geklickt und der markiert die vierte Zeile von oben gelb. was will er von mir?
AW: Zeile ausdrucken, wenn Bedingung erfüllt
11.04.2017 15:38:47
Werner
Hallo Maria,
welches Sub "ausführen" denn?
Jetz mal Schritt für Schritt:
-in deiner Arbeitsdatei den Makro-Editor öffnen: Alt + F11
-in der Menüleiste Einfügen - Modul auswählen
-den folgenden Code komplett rechts ins Codefenster kopieren 
Public Sub Drucken()
Dim oSchalter As Object
Dim loZeile As Long
Set oSchalter = ActiveSheet.Shapes(Application.Caller)
Application.ScreenUpdating = False
With oSchalter
loZeile = .TopLeftCell.Row
End With
With Sheets("FORMULAR zum AUSDRUCKEN")
.Range("C1") = Cells(loZeile, 1)
.Range("F1") = Format(Cells(loZeile, 2), "hh:mm") & " Uhr"
.Range("B2") = Cells(loZeile, 3)
.Range("F2") = Cells(loZeile, 5)
.Range("B3") = Cells(loZeile, 4)
.Range("B4") = Cells(loZeile, 6)
.Range("B5") = Cells(loZeile, 7)
.Range("A7") = Cells(loZeile, 8)
'für direkten Ausdruck .PrintPreview durch .PrintOut ersetzen
.PrintPreview
End With
Application.ScreenUpdating = True
Set oSchalter = Nothing
End Sub
-auf die normale Excel Tabellenoberfläche wechseln
-aufs Tabellenblatt "Telefonliste" wechseln
-jeder Schaltfläche das Makro zuweisen
-dazu Rechtsklick auf die entspr. Schaltfläche, Makro zuweisen, Makro Drucken auswählen -ok
-das für jede bereits vorhandene Schaltfläche
-Datei speicher, als Makrodatei natürlich
-fertig
Wenn du eine neue Zeite einfügst, dann einfach den Schalter aus der vorherigen Zeile kopieren und in der neuen Zeile in Spalte K einfügen. Das Makro ist dann schon auf dem Schalter drauf.
Gruß Werner
Anzeige
AW: Zeile ausdrucken, wenn Bedingung erfüllt
12.04.2017 08:12:48
Maria
piu piu piu! ein mega danke mit einer tiefen verbeugung! jetzt habe ich es gerafft! und nebenbei rausgefunden, wie man 1500 Schaltflächen mit wenigen klicks markieren kann! Vielen vielen Dank!
AW: Zeile ausdrucken, wenn Bedingung erfüllt
12.04.2017 08:32:31
Maria
jetzt habe ich folgendes problem: ich habe alles gemacht, alles hat funktioniert, perkeft, genau so wie das gedacht war. dann habe ich die datei mit makros gespeichert, freigegeben, gespeichert. hab mich darüber gewundert, wie lange das dauert, bis er die öffnet. dann in einen ordner auf den server verschoben, dann zum chef, er macht die datei auf und bestätigt die aktivierung des inhaltes und so und dann sehe ich, dass meine schaltflächen ganz klein in der oberen linken ecke der jeweiligen zelle sind... warum? und dann sage ich zum chef, dass ich es nicht verstehe, bitte ihn die datei zu schließen und neu zu öffnen. er macht das, und die schaltflächen sind jetzt komplett weg. er schließt die datei, ich laufe zu meinem computer und öffne die datei. weg! wo können die hin sein? selbst als ich auf "suchen und auswählen" klicke, zeigt er mir die nicht an, als ob die nie da gewesen wären. woran liegt das?
Anzeige
AW: Zeile ausdrucken, wenn Bedingung erfüllt
12.04.2017 09:01:20
Maria
ich glaube hat sich erledigt, liegt wahrscheinlich an unseren rechnern (oder?), hab jetzt die tabelle um 1000 zeilen reduziert, jetzt öffnet er auch schneller und zeigt auch alle flächen an, nur wenn man zu schnell scrollt, dauert es wieder bis er sie ordentlich anzeigt...
AW: Zeile ausdrucken, wenn Bedingung erfüllt
12.04.2017 09:57:54
Werner
Hallo Maria,
deshalb keine tausende von Schaltflächen sondern mittels Doppelklick.
Gruß Werner
AW: Zeile ausdrucken, wenn Bedingung erfüllt
12.04.2017 12:20:12
Maria
aber ich weiß jetzt ja, wie man alle 1500 direkt auswählt und das makro direkt allen zuweist! ist egal, chef hat es schon abgesegnet :-)
danke für die Hilfe bei diesem Thema! Wenns warm wird, sag mir bescheid wo du wohnst, dann lade ich dich auf ein eis ein.
Anzeige

380 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9