Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

1. x in Spalte mittels Makro durch Datum ersetzen

1. x in Spalte mittels Makro durch Datum ersetzen
15.08.2007 13:27:56
Klaus
Hallo zusammen
Ich habe folgendes Problem. Daten aus einer Tabelle werden durch ein x in Spalte A zeilenweise in ein Formular übernommen. Dieses Formular wird durch Makro ausgedruckt.
Es wäre optimal wenn nach dem Ausdruck durch das Makro in Spalte A das betreffende x durch das aktuelle Datum ersetzt wird und damit die nächste Datenzeile automatisch ins Formular übernommen wird.
Könnte mir hier bitte einer der Fachleute weiterhelfen.
Besten Dank im Voraus Klaus

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

Betreff
Datum
Anwender
Anzeige
AW: 1. x in Spalte mittels Makro durch Datum erset
15.08.2007 13:29:10
Ramses
Hallo
Ohne Beispieldatei und genauer Beschreibung ist da nichts zu machen.
Gruss Rainer

AW: 1. x in Spalte mittels Makro durch Datum erset
15.08.2007 13:44:00
Klaus
Hallo Rainer
Habe Spalte A mit x gefüllt. Restliche Daten werden zeilenweise eingetragen und durch SVERWEIS in ein anderes Tabellenblatt - Formular zum ausdrucken übernommen. Es werden mehrere Zeilen eingetragen und immer die erste Zeile mit "x" wird übernommen. Jede Zeile ist ein Datensatz zum Ausdruck. Durch ein Makro wird die 2. Tabelle (Formular) über Netzwerk ausgedruckt. Und genau hier sollte dann das betraffende "x" in Spalte A durch das aktuelle Datum ersetzt werden, damit der nächste Datensatz (Zeile) übernommen wird und die alten Daten erhalten bleiben. Das ganze sieht dann in etwa so aus.
13.08. 2071 12.8.07 rf1
13.08. 2072 12.8.07 jp2
x 0222 13.8.07 swa
x 0034 13.8.07 sbd
x
x
x
Würde gerne die ganze Datei anhängen, weiß aber nicht wie.
Danke Klaus

Anzeige
AW: 1. x in Spalte mittels Makro durch Datum erset
15.08.2007 18:03:00
fcs
Hallo Klaus,
entsprechender Code, der in das Makro zum Drucken integriert werden muss, kann etwa wie folgt aussehen.
Gruß
Franz

Sub Test2()
Dim wks1 As Worksheet, Zelle As Range
'ab hier der code zum Drucken
'1. x in Spalte 1 (A) durch Datum ersetzen
Set wks1 = Worksheets("Tabelle1") 'Tabellennamen ggf. anpassen
With wks1
Set Zelle = wks1.Columns(1).Find(what:="x", after:=.Cells(.Rows.Count, 1), _
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:=False)
If Zelle Is Nothing Then
MsgBox "Es gibt keine Zeile mit Eintrag 'x' in Spalte A"
Else
Zelle.Value = Date 'oder Now wenn Datum + Zeit eingetragen werden soll
End If
End With
End Sub


Anzeige
AW: 1. x in Spalte mittels Makro durch Datum erset
15.08.2007 18:15:15
Klaus
Funktioniert einwandfrei - Besten Dank an Franz!!!
Klaus

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige