an Josef Ehrensberger

Forumthread: 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

AW: an Josef Ehrensberger

21.01.2005 11:55:34

Josef
AW: an Josef Ehrensberger

RR
AW: an Josef Ehrensberger

21.01.2005 13:20:52

Josef
AW: an Josef Ehrensberger

harry

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

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

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)

Forumthread: an Josef Ehrensberger

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

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread