PutInClipboard
End Sub Sub Logo()
' Grafik und Text in die Kopfzeile der ersten Seite einfügen
Dim rng As Range
'In die Seitenansicht wechseln
If = wdNormalView Or = wdOutlineView Then
= wdPrintView
'In die Kopfzeile wechseln
= wdSeekCurrentPageHeader
'Grafik einfügen
dPicture FileName:= "", LinkToFile:=False, SaveWithDocument:=True
ignment = wdAlignParagraphRight
Selection. TypeParagraph ' Neuer Absatz
'Text einfügen
= "LogoUnterschrift"
FormatText
ignment = wdAlignParagraphRight 'Rechts formatieren
= wdSeekMainDocument
End Sub Du willst meine Arbeit unterstützen? Dann freue ich mich über eine kleine Spende! Hallo, hier schreibt Lars. Dipl-Ing. Ingenieurinformatik (FH). Seit Jahrzehnten in der IT tätig. Vba programmierung beispiele 2010. Geprüfter (und begeisterter) Webmaster. Ebenso begeisterter Windows-, Apple-, und Office-User. Ich schreibe über alle möglichen Themen rund um IT. Mehr über mich erfährst du hier: Über mich. Danke für deinen Besuch!
Vba Programmierung Beispiele 1
17. 07. 2002
Textbausteine erstellen und importieren
Wer häufig die selben Texte verwendet, wird diese wohl als Autotexte speichern. Sobald diese Texte aber umfangreicher werden, in mehreren Dokumenten verwendete werden und wenn gleichzeitig sichergestellt werden soll, dass sie jederzeit ohne großen Aufwand aktualisiert werden können, wird vielleicht Textbausteine vorziehen. Wie sich beliebige Textbausteine erstellen, speichern und wiederverwenden lassen, wird unter Textbausteine verwenden beschrieben. 13. VBA-Tutorial / Beispiele Teil 1. 03. 2002
Buchstabendreher korrigieren
Mit einem einfachen Makro lassen sich Buchstabendreher schnell korrigieren. Ihr findet es unter Zeichen tauschen
22. 02. 2002
Textmarken verwalten (I)
Wer viel mit Textmarken arbeitet kennt den umstndlichen Weg, jedesmal ber das Men den Punkt Textmarken auszuwhlen, um zu einer bestimmten Textmarke springen zu knnen. Auch die Definition eines Tastenkrzels bringt keine wirkliche Verbesserung. Mit zwei Makros lassen sich alle Textmarken eines Dokuments in eine Auswahlliste schreiben, ber die dann die jeweilige Textmarke im Dokument direkt angesprungen werden kann.
Vba Programmierung Beispiele In De
Beim Einfügen von Bildern über den Dialog Dialog(wdDialogInsertPicture) wird entweder der das Verzeichnis "Meine Bilder" oder der in den Word-Optionen eingestellte Clipartordner geöffnet. Auch das Ändern des Pfades mittels ChangeFileOpenDirectory bewirkt keine nderung, so dass man einen kleinen Trick anwenden muss, um dieses zu erreichen. Dieses Beispiel zeigt, wie sich durch eine kombinierte Suche Text zwischen zwei (verschiedenen) Tags finden und markieren lässt. 10. 06. 2003
Sicherheitskopie an beliebiger Stelle speichern
Mit Word-eigenen Mitteln lassen sich die Sicherheitskopien, die Word bei entsprechender gesetzten Option anlegt, nicht in ein anderes Verzeichnis umlenken. Vba programmierung beispiele in de. Wie sich allerdings Sicherheitskopien in beliebigen Ordnern und mit Uhrzeit und Datum versehen speichern lassen, findet Ihr unter Sicherheitskopien speichern. 02. 09. 2002
VBA bietet verschiedene Möglichkeiten, mit Datumsangaben zu arbeiten und diese zu formatieren. So lässt sich mit diesen Funktionen leicht ein (Jahres-) Kalender erstellen.
Vba Programmierung Beispiele 2010
Es wird kein nachfolgender Code ausgeführt, bis das UserForm verborgen oder entladen ist. Obwohl andere Formulare in der Anwendung deaktiviert werden, wenn ein UserForm angezeigt wird, geschieht dies nicht bei anderen Anwendungen. Wenn das UserForm ungebunden ist, kann der Benutzer andere Formulare oder Fenster anzeigen, ohne das UserForm zu schließen. Ungebundene Formulare werden nicht in der Taskleiste angezeigt und befinden sich nicht in der Aktivierreihenfolge des Fensters. Ein Excel-Sheet ohne Excel aufrufen - Hierzu in eine UserForm das Excel-Objekt hinzufügen. Anwendungsbeispiele - VBA-Programme - VBA-Programme. Private Sub Spreadsheet1_BeforeCommand(ByVal EventInfo As OWC. SpreadsheetEventInfo)
With EventInfo
If. Command = ssClear Then
MsgBox "Nichts löschen". ReturnValue = False
End Sub Private Sub CoFill_Click()
For i = 1 To 10
("C" & Trim(Str(i))) = i
Next i
End Sub
Sub EinfügenNurText()
steSpecial DataType:=wdPasteText
On Error GoTo EinfFehler
Exit Sub
EinfFehler:
If = 4605 Then
MsgBox "Die Zwischenablage ist leer"
ElseIf = 5342 Then
MsgBox "Kein Text in der Zwischenablage"
Else 'Für alle Fälle...,
End Sub Die Makro-Module können auch in eine separate Vorlage gespeichert und in den Autostart-Ordner abgespeichert werden.
Die Berechnungen werden weiterhin in Excel durchgeführt
Die Durchführung erfolgt jetzt automatisch
Über einen Button in Excel wird automatisch eine neue PowerPoint Präsentation erstellt
Monatlich werden mehrere Stunden an Arbeitsaufwand eingespart
Vermeidung von Flüchtigkeitsfehlern bei manueller Übertragung der Werte
Ergebnisse können ohne lange Bearbeitungszeit dem Vorstand präsentiert werden
Datenbank inkl Autofill-Userform zur zeiteffizienten Mieter & Zahlungserfassung
Kontrolle und Übersicht der Zahlungseingänge
Graphischer Belegungsplan inkl. Jahresaktualisierung und auto. Druckfunktion
Zeitersparnis von 50% für Verwaltung der Ferienobjekte
Druck eines graphischen Belegungsplanes auf Knopfdruck
#4 Immobilien-Analysetool: Webscraping Umgesetzt mit Ausgangssitutation:
Analyse des Immobilienmarktes hinsichtlich Preisentwicklung & Angebotsdauer sowie automatischer Archivierung der Immobilieninserate aus dem Internet. Analyse der Immobilien aus mehreren Immobilienportalen
Archivierung der Immobilieninserate als PDF-Datei
Optimierung der Immobilienverkaufs- bzw. Kaufangebote hinsichtlich der regionalen Marktlage
#5 Automatische Vertragserstellung Umgesetzt mit Ausgangssitutation:
Manuelle Vertragserstellung basierend auf einem Vertragsgrundgerüst und variablen kundenspezifische Daten. Vba programmierung beispiele 1. Vertragserstellungs-Tools via WORD-VBA, basierend auf einer unternehmensspezifischen Word-Vorlage
Erfassung der Vertragsdaten in einer Userform
Erstellung des Vertrages in Word
Automatischer PDF-Export
Zeitersparnis von 50% im Vergleich zur manuellen Eingabe
Vollständige Fehlervermeidung bei der Vertragserstellung
#6 Automatische PowerPoint Erstellung Umgesetzt mit Ausgangssitutation:
Damit die in Excel durchgeführten Berechnungen dem Vorstand präsentiert werden können, müssen diese monatlich in PowerPoint grafisch aufbereitet werden.