Die ersten Schritte sind oft schwierig – aber nicht, wenn man dabei Unterstützung bekommt. Weil ich nicht immer persönlich dabei sein kann, gibt es hier ein Video:
Das hilft übrigens auch, wenn du schon Erfahrung mit Word hast, aber immer wieder „komische Dinge“ passieren – da fehlen vielleicht ein paar Basiskenntnisse.
Sie wollen E-Mails per VBA mit Betreff als Dateiname speichern? Dann haben Sie das Problem, dass ein Smiley oder ein Weihnachtsmann aus dem Betreff kein gültiges Zeichen für einen Dateinamen ist. Auch Punkte und Beistriche werden in einem Dateinamen nicht zugelassen. Ihr Skript stürzt ab 😦
Abhilfe schafft hier folgende Funktion:
Public Function makeSaveName(myText As Variant) As Variant
Dim Pos As Long
Dim Chars As Variant
For Pos = 1 To Len(myText)
If InStr(1, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ -_äöüÄÖÜß0123456789", Mid(myText, Pos, 1)) <> 0 Then
makeSaveName = makeSaveName & Mid(myText, Pos, 1)
End If
Next Pos
End FunctionSie pickt sich aus dem übergebenen Originaltext nur mehr die in der Zeichenkette angegebenen Zeichen heraus; der Rest wird weggelassen.
Aus „Frohe Weihnachten, Ihr Lieben!!!“ macht sie „Frohe Weihnachten Ihr Lieben“. Und alles ist gut.
Die Verwendung im Code sieht so aus:
mAtt.SaveAsFile "C:\Users\KatharinaSchwarzer\" & Year(Date) & "\Rechnungen\" & makeSaveName(myItem.Sender) & "_" & Format(Date, "yyyymmdd") & "_" & makeSaveName(myItem.Subject)Also: Um Sender und Subject herum (aus beiden wird hier der Dateiname gebastelt) kommt jeweils der Funktionsaufruf.
Fertig!
Wer kennt das nicht: man möchte eine Datei erzeugen, z.B. aus einem E-Mail oder einem Eintrag in einer Excel-Liste oder … Und dann klappt das Speichern nicht, weil der Dateiname Ungültiges enthält. Das ist beim Automatisieren von Abläufen eher, hm, hinderlich.
Abhilfe schafft dieser Codeschnipsel – eine hübsche VBA-Funktion:
Public Function makeSaveName(myText As Variant) As Variant
Dim Pos As Long
Dim Chars As Variant
For Pos = 1 To Len(myText)
If InStr(1, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ -_äöüÄÖÜß0123456789", Mid(myText, Pos, 1)) <> 0 Then
makeSaveName = makeSaveName & Mid(myText, Pos, 1)
End If
Next Pos
End FunctionViel Spaß beim Einsetzen!
Mit den Videos ist das so eine Sache: das ist jeweils ein Teil von dem, was ich in einer Schulung erzähle. Das was hier fehlt:
Und wo gibt es das dann?
Tja … bei mir. Ganz ehrlich: ich teile mein Wissen sehr gerne, und freue mich riesig, wenn es jemandem weiterhilft. Wer mehr braucht als ein Erklärvideo soll nicht auf dem Trockenen bleiben; das kann ich gleichzeitig dann nicht mehr „verschenken“. Meine Kurse sind effizient, gehaltvoll, didaktisch kompetent aufbereitet, und ich lege großen Wert darauf, die Inhalte nachhaltig zu vermitteln. Meine Einzelcoachings sind punktgenau auf die Bedürfnisse der gecoachten Person ausgerichtet, und lösen viele Probleme. Meine Individuallösungen erstelle ich mit großer Genauigkeit und viel Einfühlungsvermögen für den Bedarf meiner Kunden.
http://www.soprani.at zeigt, was alles möglich ist.
Ja, klar, man kann ewig auf dem Niveau „ich nutze die Autosumme, und gut ist es“ verbleiben – über die sogenannten Aggregatfunktionen gibt es gleichzeitig noch mehr zu lernen. Um sie richtig zu beherrschen und effizient zu nutzen.
Blitzvorschau – was ist denn das? Aaaaaalso: damit kann man schnell aus alten Daten neue machen. Um zum Beispiel Adresszeilen in Postleitzahl und Ort aufzuteilen. Oder aus Vorname und Nachname eine E-Mailadresse zu basteln. Oder aus der Artikelnummer die 3. und 5. Stelle „herauszukratzen“. Oder …
Hier erklär ich das per Video:
Ich hab einen guten Artikel zum Thema Passwortschutz gefunden – bitte sehr:
World Password Day: 6 Mythen rund um sichere Passwörter (futurezone.at)
Ist ja auch in Office ein Thema – wer Office 365 hat, hat auch einen Account, und den gilt es, gut zu schützen; da sind ja auch Daten drin gespeichert, die niemanden was angehen. Oder in Word: auch da können Teile des Dokuments geschützt werden, mit und ohne Passwort. Na, und der Blattschutz und der Arbeitsmappenschutz in Excel sind ohnehin legendär.
Diese Zellbezüge sind hinterhältig – manchmal verrutschen sie, obwohl man das nicht will, manchmal kleben sie fest, obwohl sie sich bewegen sollten. Und wie ist das mit anderen Blättern?
Unerklärlich? Aber nein – hier ein Video:
Wie kann man denn in Excel schnell einen ganzen Zahlenhaufen addieren? Ich erklär’s:
katharinakanns
Soprani Software 