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, 2419 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
"Microsoft Excel kann die Daten nicht einfügen" (2)

Frage von arik12 zum Thema Microsoft Office ...

Microsoft Office
gelöst Email-Adresse aus Adressbuch-String in Excel 2010 herausschneiden (4)

Frage von rudeboy zum Thema Microsoft Office ...

Datenbanken
gelöst Access 2010 SQL Tabellen Datensätze einfügen (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(10)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

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

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...