MarkusHeinemann.com

Jahr: 2017

  • Fotodatenbanken

    Werbeagenturen nutzen die folgenden Datenbanken für Lizenzfreie Bilder: unsplash.com pixabay.com pexels.com

  • Teile eines Strings ersetzen

    Hier im Beispiel sollen deutsche Dezimalzeichen ins englische „0.5“ Format gebracht werden dim variable as string variable=“0,5″ variable = Replace(variable, „,“, „.“) // Ergebnis: variable=“0.5″

  • Datei beschreiben (überschreiben)

    vorhandene Dateien mit dem gewählten Namen werden überschrieben Dim pfad As String pfad = ActiveWorkbook.Path & „“ & „datensatz.txt“ ‚<- Pfad der geöffneten Exceldatei Open pfad For Output As #1 zeile = „Text in der Datei“ Print #1, zeile zeile = „// noch mehr text“ & vbCrLF ‚<- Zeilenumbruch Print #1, zeile Close #1

  • Zeilen und Spalten einer Tabelle zählen

    Anzahl Zeilen und Spalten einer Exceltabelle zählen anzahlzeilen = Worksheets(„Tabelle1“).Cells(Rows.Count, 1).End(xlUp).Row anzahlSpalten = Worksheets(1).Cells(1, Worksheets(1).Columns.Count).End(xlToLeft).Column ‚[Worksheets(1)=Worksheets(„Tabelle1“)= Tabelle in der gezählt werden soll]  

  • Zellbereich verketten

    Diese Funktion kann in ein beliebiges Modul in VBA eingefügt werden. In der Zelle steht dann z.B. die Formel =verketten2(A1:A100;“,“)   Public Function verketten2(ByRef rngBereich As Range, strTrennzeichen As String) As Variant Dim rng As Range Dim strTextkette As String For Each rng In rngBereich If rng <> „“ Then strTextkette = strTextkette & rng…

  • Rand mit Gimp ins transparente verlaufen lassen

    Das kann auch zum Freistellen eines Bildes genutzt werden, wenn der Rand ausgefranzt ist (die Grenze des freizustellenden Bildes nicht eindeutig abgegrenzt werden kann) 1. Rechtsklick auf die Ebene > Auswahl aus Alphakanal. (Wenn kein Alphakanal vorhanden ist, ist der Ebenenname Fett geschrieben, du kannst per Rechtklick auf die entsprechende Ebene einen Alphakanal hinzufügen, dazu…

  • Excel Funktion: Zahlen aus Zelle extrahieren

    Der folgende VBA-Code gibt alle numerischen Zeichen einer Zelle zurück. Der Code kann in ein beliebiges Modul geschrieben und im Sheet als Zellfunktion aufgerufen werden. Zellfunktion Beispiel: =getzahl(A1) Function getzahl(zelle As Range) As String Text = zelle.Value Dim zahl As String zahl = „“ For i = 1 To Len(Text) If IsNumeric(Mid(Text, i, 1)) =…