Merkhilfen für mich und alle, die es interessiert

Kategorie: Allgemein (Seite 1 von 14)

Aktive Zeile in Excel farbig hervorheben

EINSCHRÄNKUNG (am besten gleich vorab):
Beim nachfolgend dokumentierten Code gehen Hintergrundfarben in Deinem Excel-Arbeitsblatt verloren!
Für meine Zwecke reicht er aber aus, da ich ihn für Pivot-Tabellen nutzen will, in denen ich sowieso keine farbigen Hintergründe nutzen will. Das kann man sicher irgendwo abfangen, aber dafür habe ich im Moment (und wohl auch später ;-)) zugegebenermaßen keine Muße

  1. Excel-Sheet als „Excel-Arbeitsmappe mit Makros (*.xlsm)“ speichern. ([F12] drücken, um in den „Speichern unter…“ Dialog zu kommen)
  2. [ALT]+[F11], um in den Entwicklermodus zu kommen
  3. Doppelklick auf „DieseArbeitsmappe“
  4. Folgenden Code einfügen
Private Sub Workbook_SheetSelectionChange( _
	ByVal sh As Object, ByVal Target As Excel.Range)
	Static AlteZelle As Range
	If Not AlteZelle Is Nothing Then
		AlteZelle.EntireRow.Interior.ColorIndex = _
		xlColorIndexNone
	End If
	Target.EntireRow.Interior.ColorIndex = 27
	Set AlteZelle = Target
End Sub


Speichern mit [Strg]+[S] und dann den Entwicklermodus mittels [ALT]+[Q] verlassen. (Oder aber erstmal ausgiebig die Farbcodes (bei mir ist es die 45) ausprobieren.

Quellen:

Code: http://forum.chip.de/office/aktive-zeile-farbig-hervorheben-506054.html#post3170937 (ein paar Beiträge weiter unten jammert ein inzwischen gesperrter User, dass da was nicht läuft, aber seine Alternative funktioniert nicht)

Farbcodes [Update 2021 – inzwischen gibt es viel weniger Farbauswahl beim ColorIndex 🙁 – um RGB kann ich mich grade nicht kümmern ;-)]: https://docs.microsoft.com/de-de/office/vba/api/excel.colorindexhttp://www.mvps.org/dmcritchie/excel/colors.htm

MS Word – Seriendokument als einzelne Dateien mit Dateinamen aus Datenbestand exportieren

Siehe https://www.msofficeforums.com/mail-merge/21460-multiple-page-document-individual-multiple-page-documents.html#post65503

Sub Merge_To_Individual_Files()
'Merges one record at a time to the chosen output folder
Application.ScreenUpdating = False
Dim StrFolder As String, StrName As String, MainDoc As Document, i As Long, j as long
Set MainDoc = ActiveDocument
With MainDoc
  StrFolder = .Path & Application.PathSeparator
  For i = 1 To .MailMerge.DataSource.RecordCount
    With .MailMerge
      .Destination = wdSendToNewDocument
      .SuppressBlankLines = True
      With .DataSource
        .FirstRecord = i
        .LastRecord = i
        .ActiveRecord = i
        If Trim(.DataFields("Last_Name")) = "" Then Exit For
        StrName = .DataFields("Last_Name") & "_" & .DataFields("First_Name")
      End With
      .Execute Pause:=False
    End With
    StrName = Trim(StrName)
    With ActiveDocument
      .SaveAs2 FileName:=StrPath & StrName & ".docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False
      ' and/or:
      .SaveAs2 FileName:=StrPath & StrName & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
      .Close SaveChanges:=False
    End With
  Next i
End With
Application.ScreenUpdating = True
End Sub

PDF-Dateien im Reißverschluss-Verfahren zusammenfügen

Problem:

  • Dokument mit zwei Seiten auf 2 PDFs verteilt (hatte tatsächlich mal praktische Gründe beim erstellen)
  • Nun soll doch vorder- und Rückseite bedruckt werden (mit Duplex-Drucker)
  • Zusammengeführt werden sollen aus Zwei PDF-Dateien A & B:
  • Seiten: A1 – B1 – A2 – B2 – … – Ax – Bx

Lösung:

  • PDFsam Basic: https://pdfsam.org/download-pdfsam-basic/
  • Quelle (mit weiteren Lösungsalternativen): https://qastack.com.de/superuser/516612/merge-two-pdf-files-containing-even-and-odd-pages-of-a-book

Hyper-V und Cisco AnyConnect

Coronazeit, Homeofficezeit. Schon seit Tagen trendet #covid19 in allen Variationen in den sozialen Medien. Also nutzte ich mal die Gelegenheit, um im Homeoffice mir via Hyper-V einen virtuellen Arbeitsrechner aufzusetzen, denn permanenter Remote-Desktop ist ja auch nciht Sinn und Zweck der Übung. RAM und Plattenplatz sind ja genug da und da ich jetzt keine Aufwändigen Simulationen oder Videorenderings zu bearbeiten habe, reicht auch mein i5-Prozessor aus. Also in der VM fix mittels Cisco AnyConnect den VPN-Tunnel zum Arbeitgeber verbinden, doch oh je:

vpn establishment capability for a remote desktop is disabled.

Nicht schön, aber relativ einfach zu lösen:

  1. gehe aus dem Vollbildmodus raus
  2. in der Werkzeugleiste des Hyper-V-„Displays“ wähle den zweiten Button vom rechts, um in den „Einfachen Modus“ zu gelangen. (Je nach Windows-Version vielleicht an anderer Stelle, aber Dank Mouse-over schnell zu finden)
  3. Nicht erschrecken, das Fenster wird kleiner (bei mir 1024×768)
  4. VPN-Tunnel im Cisco Anyconnect herstellen.
  5. Sobald die Verbindung steht kannst Du wieder in den „erweiterten Modus“ Wechseln und Deine VM im Vollbildmodus nutzen

Fundstelle: https://msitpros.com/?p=3611

Homeoffice und VoIP

Es ist Coronazeit und damit steht für viele von uns Homeoffice an. Kudos an dieser Stelle an alle, die da draußen für uns unterwegs sind: Gesundheitspersonal, Pflegekräfte, Post- und Paketdienstleistende, Lieferpersonal, Polizei, Feuerwehr, Einsatzkräfte, …

Back to topic! Tom hat ein wunderbares Tutorial geschrieben. Die Screenshots sind schon ein wenig „abgehangen“, aber Ihr werdet Euch schon zurechtfinden: https://thomasheinz.net/mit-dem-pc-uber-die-fritzbox-telefonieren-microsip Vielen Dank!

Windows 10 Bootmenü mit F8

Tja, Seit Windows 8 wurde es sehr schwer, mal ebenso mittels F8 ins Bootmenü zu kommen, um bspw. in den abgesicherten Modus zu gelangen. Gerade eben sprang mir im Heise-Forum (Eigentlich bin ich nur ins Beitrags-Forum rein, um mich am Symantex-Bashing zu erfreuen 😉) der entscheidende Tipp ins Auge, um genug Zeit zu haben, um die Taste F8 zu drücken:

  1. ins CMD-Fenster (mit Admin-Rechten)
  2. bcdedit /set {bootmgr} displaybootmenu yes
  3. bcdedit /set {bootmgr} timeout 5

zu 1) Win-Taste drücken | „cmd“ tippen | Rechtsklick auf den Eintrag „Eingabeaufforderung (App)“ | „Als Adminaistrator ausführen“ auswählen | ggf. die Windows-Sicherheitsabfrage mit „Ja“ bestätigen

zu 3) die Zahl 5 ggf. durch einen anderen Wert (jeweils in Sekunden) ersetzen.

LimeSurvey – Dateianhänge der Befragten herunterladen

Da ich es selbst immer wieder suche, hier mal kurz notiert:

  1. in die Umfrage gehen
  2. im Menü oben auf → „Antworten“ → „Antworten und Statistik“
  3. im Menü oben auf → „Zeige Antworten“
  4. unter der Antwortliste rechts eine ausreichend hohe Zahl an anzuzeigenden Antworten auswählen
  5. ganz oben das Kästchen für „alle alle auswählen“ anklicken
  6. unter der Antwortliste links das Menü namens „Ausgewählte Antwort(en)“ öffnen und → „Dateien herunterladen“ wählen
  7. einen Moment Geduld habe und die ZIP-Datei namens „Files_for_survey_xxxxx.zip“ wird heruntergeladen.

Ende im Gelände?

Erst mal alles im Archiv belassen. Tipps gibt es auch sonst ganz viel im Netz. Wenn es doch mal wieder was gibt, verblogge ich es vielleicht…

Danke an die paar Leser aus alten Zeiten! 😎

Quicktipp Netzrecherche: Artikeldatum trotz fehlender Datumsangabe herausfinden

Ich stand eben vor dem „Problem“, das genaue Publikationsdatum und das letzte Bearbeitungsdatum eines Onlineartikels herauszufinden, denn diese Informationen enthielt das Blog leider leider konsequent vor :-/. Immerhin war schnell herausgefunden, dass es ein WordPress-basiertes Blog ist.

Also ganz fix mal <Strg><u> auf der Tastatur gedrückt und mal die Meta-Informationen angeschaut – und siehe da, man wird häufig fündig. Die Textsuche mittels <Strg><f> funktioniert übrigens auch auf im Quelltext. Suche einfach nach „published“ und/oder „modified“:

How-To: VoIP mittels Windows-PC und VoIP-Anschluss auf der Fritzbox

kurz die URL notiert: http://onkeljoe.de/mit-dem-pc-ueber-die-fritzbox-telefonieren/

Der wesentliche „Trick“ ist, dass man der Fritzbox sagen muss, dass man ein „Telefon“ anschließen möchte, im zweiten Schritt dann die Auswahl, dass es sich um ein IP-Telefon handelt.

Telefoniesoftware für den Computer: https://www.microsip.org/downloads (Open Source, und natürlich für weit mehr als nur für Win verfügbar)

« Ältere Beiträge

© 2021 fortytwo.195

Theme von Anders NorénHoch ↑