Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

an Josef Ehrensberger

an Josef Ehrensberger
21.01.2005 11:02:23
Harry
o Sepp,
manchmal ist man Blind!!!!!!!
Danke!!
Du bist aber auch ständig am arbeiten!!
Heute Nacht um 3 und jetzt schon wieder!!
Vieleicht kannst du mir noch ne hilfe geben!
wenn ich die Angezeigten Geburstage ausdrucken will,
bzw. die Adressen in Word übergeben---
ist das machbar?
Gruß
Harry

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

Betreff
Datum
Anwender
Anzeige
AW: an Josef Ehrensberger
21.01.2005 11:55:34
Josef
Hallo Harry!
Word-VBA ist nicht so mein Ding!
Schau mal in die Recherche, dort lässt sich sicher was finden.
Gruß Sepp
AW: an Josef Ehrensberger
RR
Hallo,
wie wäre es mit der Serienbrieffunktion von Word!?
Gruß
RR
AW: an Josef Ehrensberger
21.01.2005 13:20:52
Josef
Hallo Harry!
Wenn du mit dem Ausdrucken als Textdatei zufrieden bist, dann kannst
du diesen Code verwenden.
In ein allgemeines Modul:


      
Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
   (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
   ByVal lpParameters As String, ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long
Private Function printText(ByVal txt As String)
Dim pFile As String
pFile = "C:\Temp\Dummy.txt"
Open pFile For Output As #1
Print #1, txt;
Close #1
ShellExecute 0, "print", pFile, "", "", 0
Kill pFile
End Function
Private Sub geburtstage()
Dim rng As Range
Dim strText As String
Dim blnFound As Boolean
strText = "Anstehende Geburtstage in den nächsten Tagen:" & Space(125) & vbLf & vbLf
For Each rng In Sheets("Daten").Range("I1:I5000")
   If IsDate(rng) Then
      If DateDiff("d", Date, DateSerial(Year(Date), _
                  Month(rng), Day(rng)), vbMonday) < 10 Then
                  
         blnFound = True
         
         strText = strText & Format(rng, "dddd dd.mm") & vbTab & rng.Offset(0, -8) & _
                     vbTab & rng.Offset(0, -7) & vbTab & rng.Offset(0, -6) & vbTab & _
                     rng.Offset(0, -2) & vbTab & rng.Offset(0, -1) & vbLf
         
      End If
   End If
Next
If blnFound Then
If MsgBox(strText & vbLf & vbLf & "Text Drucken?", vbYesNo + vbQuestion, _
"Kundengeburtstage") = vbYes Then
printText (Replace(strText, vbTab, ", "))
End If
End If
End Sub 
In "DieseArbeitsmappe":


      
Option Explicit
Private Sub Workbook_Open()
geburtstage
End Sub 
Gruß Sepp
Anzeige
AW: an Josef Ehrensberger
harry
Hallo Josef,
war ausser haus und muss auch gleich wieder weg,
habe es kurz versucht,
bekomme Fehler!!
Rühr mich heute abend nochmal!!
Gruß
Harry

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige