Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel 2010 via Makro bedingten Seitenumbruch einfügen

Frage Microsoft Microsoft Office

Mitglied: arduino

arduino (Level 1) - Jetzt verbinden

20.08.2014 um 11:23 Uhr, 2452 Aufrufe, 1 Kommentar

Hallo

Ich hab ein ExcelMakro, das ein formatiertes Textfile importiert

Vorname Nachname Eintritt Weiteres
Hans Muster 20.8.2014 ...
Hans Muster 20.8.2014 ...
Hans Muster 21.8.2014 ...
Hans Muster 23.8.2014 ...
Hans Muster 23.8.2014 ...

Jetzt ist der Wunsch, dass nach den Eintritten von heute ein Seitenumbruch eingefügt wird. Das beste, was ich bis jetzt gefunden hab, war das. Hier ist jedoch die Zeile fix, was mir nicht weiterhilft, da die Anzahl der Einträge jedes Mal variiert
01.
Worksheets("Sheet1").Rows(25).PageBreak = xlPageBreakManual
Kennt jemand eine einfache Möglichkeit, in dem Beispiel oben die Spalte 3 auszulesen und nach der letzten mit dem heutigen Datum (hier der 20.8. bzw. Zeile 2) den Seitenumbruch einzufügen?

Danke und Gruss
Arduino
Mitglied: colinardo
20.08.2014, aktualisiert um 11:51 Uhr
Hallo Arduino,
wenn die Spalte C das Datumsformat hat kannst du das hernehmen:
01.
Sub InsertPageBreak() 
02.
     Dim ws As Worksheet, f As Range 
03.
     Set ws = Worksheets("Sheet1") 
04.
     Set f = ws.Range("C:C").Find(Date, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious) 
05.
     If Not f Is Nothing Then 
06.
        f.Offset(1, 0).EntireRow.PageBreak = xlPageBreakManual 
07.
     End If 
08.
End Sub
sollte das Datum jedoch im Textformat vorliegen muss man den ersten Parameter der Find-Methode in folgendes ändern:
Format(Date, "dd.M.yyyy")
Das vorliegende Datumsformat musst du dann entsprechend anpassen. Ist jetzt so formatiert wie in deiner Beispieltabelle, also mit einstelligen Monatswerten.

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

Microsoft Office
gelöst Dateiliste in Excel 2010 wird nur nach Formel löschen aktualisiert (1)

Frage von dressa zum Thema Microsoft Office ...

Microsoft Office
"Microsoft Excel kann die Daten nicht einfügen" (2)

Frage von arik12 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

LAN, WAN, Wireless
Rogue Access Point (20)

Frage von Axel90 zum Thema LAN, WAN, Wireless ...

Webbrowser
Windows 7 unbeliebte Internetseite sperren (13)

Frage von Daoudi1973 zum Thema Webbrowser ...

E-Mail
Fake E-Mail in Outlook für Demonstartionszwecke (12)

Frage von sascha382 zum Thema E-Mail ...