"r" mit "hatschek" ???

In Sub Workbook_BeforePrint füge diese Zeile

Set R = Intersect(R, R.Parent.Range("D:XFD"))

nach der Zeile

Set R = FilledRange

ein.

Andreas.

+-----+-------+---------+---------+

| | A | B | C |

+-----+-------+---------+---------+

| 1 | | | |

+-----+-------+---------+---------+

| 2 | Hans | Maier | E:\test |

+-----+-------+---------+---------+

| 3 | Heinz | Mueller | E:\test |

+-----+-------+---------+---------+

| 4 | Peter | Schleif | E:\test |

+-----+-------+---------+---------+

Sub MkDir()

Dim r As Range

With CreateObject("Scripting.FileSystemObject")

For Each r In Range([B2], [B2].End(xlDown))

If .FolderExists(r(1, 2)) Then

If Not .FolderExists(r(1, 2) & "\" & r) Then .CreateFolder r(1, 2) & "\" & r

End If

Next

End With

End Sub

Peter

In dem unten stehenden Makro werden zunächst die alten horizontalen Seitenumbrüche in dem Bereich mit den Mitarbeiter-Namen gelöscht und dann neu gesetzt. Schließlich kann sich die Liste ja mal ändern und alte Seitenumbrüche unnötig werden.

Peter

Sub SeitenumbruchNachJedemNeuenZelleninhalt()

Dim r As Range

Dim i As Integer

With ActiveSheet

Set r = .Range(.[A2], .[A2].End(xlDown)(2, 1))

For i = .HPageBreaks.Count To 1 Step -1

If Not Intersect(r, .HPageBreaks(i).Location) Is Nothing Then .HPageBreaks(i).Delete

Next

For Each r In r

If r <> r(0) Then .HPageBreaks.Add Before:=r

Next

End With

End Sub

Hallo,

möchtest du das Konto als Exchange ActiveSync-Konto einbinden? Wenn ja, versuche es bitte wie folgt:

1. Klicke in Outlook auf Datei > Konto hinzufügen.

2. Wähle Manuelle Konfiguration oder zusätzliche Servertypen
und klicke auf Weiter.

3. Wähle Mit Outlook.com oder Exchange ActiveSync kompatibler Dienst und klicke auf
Weiter.

4. Gib folgende Daten ein:

Ihr Name: Dein Name

E-Mail-Adresse: Deine E-Mail-Adresse

E-Mail-Server: m.hotmail.com

Benutzername: Deine E-Mail-Adresse

Kennwort: Dein Kennwort

5. Klicke auf Weiter und warte bis die Einstellungen getestet wurden, klicke auf
Schließen und dann auf Fertig stellen.

Gruß,

Pauline

Diese Lösung hatte ich vor längerer Zeit schon mal probiert und verworfen.

SELECT DISTINCT B.DatensatzID AS HBCI_ID, B.Purpose_calc, B.ValidityDate, B.Amount,

R.RE_Rechnung_HBCIDatensatz, R.ID, R.Rechnungscode

FROM dbo_Einnahmen_Commerzbank_view as B, qry_Gutachten_nicht_bezahlt AS R

WHERE B.Purpose_calc Like "*" & stripcrlfspaces(nz(R.Rechnungscode)) & "*"

Es kommen viele tausend Zeilen zurück - genauer gesagt Datensätze aus B x Datensätze aus R