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, 2292 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

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

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Microsoft Office
PIVOT-CHART IN EXCEL 2010

Frage von MiSt zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 Doc Properties ohne Makros (1)

Frage von arduino zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (15)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...

Viren und Trojaner
Wie werde ich den Mist "fanli90" wieder los? (13)

Frage von Taumel zum Thema Viren und Trojaner ...

CPU, RAM, Mainboards
Hardware Fragen (12)

Frage von xaver-2 zum Thema CPU, RAM, Mainboards ...