Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausdruck und speichern

Forumthread: Ausdruck und speichern

Ausdruck und speichern
10.12.2013 11:13:13
Manfred1
Hallo ins Forum,
bin neun neu hier und hoffe auf eure Hilfe.
Ich nutze Excel 2007. Ein Tabellenblatt (z.B. Tabelle 5) soll über VBA ausgedruckt werden. Soweit, sogut. Dieser Code soll nun so erweitert werden, dass bestimmte Zellen dieser Tabelle (Tabelle 5, Zellen: A5, A6, A7) in die Tabelle 6) möglichst mit Datumangabe übertragen werden. In Tabelle 6) ensteht so ein Archiv mit fortlaufenden bisher ausgedruckten Daten (möglichst mit Datumangabe).
Kann mir jemand hierbei helfen gf. eine Datei zur Verfügung stellen?
Danke für die Hilfestellung
Gruß
Manfred

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausdruck und speichern
10.12.2013 12:14:34
Manfred
Hallo Hajo,
danke für die schnelle Antwort.
Wo hast Du den Beitrag "Ausdruck und speichern" her ? Der ist nicht von mir.
Der Anhang mit Kalender stimmt wieder.
Gibt es auch noch einen einfacheren Weg mit Formeln. Mein Kalender liegt quer.
Gruß
Manfred

Anzeige
AW: Ausdruck und speichern
10.12.2013 11:37:43
Hajo_Zi
Hallo Manfred,
das war jetzt der falsche Beitrag. Aber ich vermute mal Du bist der gleiche Manfred.
Gruß Hajo

AW: Ausdruck und speichern
10.12.2013 13:05:10
Hajo_Zi
Hallo Manfred,
ergänze Dein Druckmakro um folgende Zeilen 
Option Explicit
Sub Uebertrag()
Dim Loletzte As Long
With Worksheets("Tabelle6")
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(Loletzte, 1) = Date
'(Tabelle 5, Zellen: A5, A6, A7)
.Cells(Loletzte, 2) = Range("A5")
.Cells(Loletzte, 3) = Range("A6")
.Cells(Loletzte, 4) = Range("A7")
End With
End Sub
Gruß Hajo
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige