VBA: Ein paar lose zusammengestellte Konstrukte für Excel

Relativ selten komme ich in die Verlegenheit, etwas mit Excel-Makros machen zu müssen. Meist muss ich dann mein altes Wissen wieder umständlich irgendwo hervor kramen. Daher hier mal ein paar Stichpunkte.

Zellen manipulieren

Excel-Zellen spricht man über den Befehl Cells an. Als Parameter gibt man die Zeile und die Spalte an. Auch die Zeile wird numerisch angegeben, also A=1, B=2…

var = Cells (1, 1)

Schleife über mehrere Zeilen

    For Rows = RowStart To RowEnd
        Jahr = Trim(Cells(Rows, 15))
        'Mach was mit Jahr....    
    Next Rows
    Trim()

Trim schneidet eventuell führende oder nachfolgende Leerzeichen von einem Sting ab

Zellen einfärben

Cells(i, 2).Interior.ColorIndex = 3 'rot

Verschiedene Farben stehen hier zur Auswahl, z.B.

12345678910

Weitere bei http://excelwelt.de/excelallg/farb.html.

Nützliche Funktionen

IsDiskFolder

Liefert True zurück, wenn der Ordner fName existiert


Meine Empfehlungen für meine Leser:


 
Function IsDiskFolder(ByVal fName As String) As Boolean
     'liefert True zurück, wenn der Ordner existiert

     If (Dir(fName, vbDirectory) <> "") Then
         IsDiskFolder = True
     Else
         IsDiskFolder = False
     End If

End Function 

Replace

Ersetzt im String zu_durchsuchender_Text den Teilsting Was_ersetzen mit durch_was_ersetzen.

 
Public Function Replace(ByVal zu_durchsuchender_Text As String, _
   ByVal Was_ersetzen As String, ByVal durch_was_ersetzen As String)
    If Was_ersetzen = "" Then Exit Function
    If zu_durchsuchender_Text = "" Then Exit Function
    Dim I As Integer, L As Integer, t As String, P As Integer
    L = Len(Was_ersetzen)
    P = InStr(1, zu_durchsuchender_Text, Was_ersetzen, vbTextCompare)
    While P > 0
        t = t & Left(zu_durchsuchender_Text, P - 1) & durch_was_ersetzen
        zu_durchsuchender_Text = Mid(zu_durchsuchender_Text, P + L)
        P = InStr(zu_durchsuchender_Text, Was_ersetzen)
    Wend
    Replace = t & zu_durchsuchender_Text
End Function 
AngebotBestseller Nr. 1
SYOSIN Selfie Stick Stativ, 3 in 1 Mini Selfiestick mit Bluetooth-Fernauslöse Handy Erweiterbarer Selfie-Stange und Tragbar Monopod Handyhalter für iPhone/Samsung/Huawei IOS und Android
  • 3-in-1 Design -- SYOSIN Selfiestick mit abnehmbaren Auslöser. Sie können den Stick entweder als regulären Selfie Stick verwenden, oder den Bluetooth Auslöser abnehmen und als Dreibeinstativ mit Fernauslöser verwenden. Entweder ein Kamera-Einbeinstativ oder ein Handyhalter.
  • Weite Szene Erfassen -- 70cm extrem länge ausziehbaren Selfie Stick herausgebracht, um eine breitere Sicht zu erzielen oder ein Gruppenfoto im Stativmodus zu machen. Mit 270°drehbarer Telefonhalter können Sie den besten Selfie-Winkel finden oder gute Momente jederzeit aufnehmen, egal ob auf Reisen, Party, Hochzeit, Promotionen, Klettern usw.
  • Super-Kompatibilität -- Das Selfie-Stick-Stativ passt zu 3,5-6 Zoll-Mobiltelefonen, die mit den meisten IOS / Android-Geräten kompatibel sind und für iPhone/ Samsung, Huawei und andere Smartphones. Keine zusätzliche APP erforderlich. Alles, was Sie tun müssen, ist die Verbindung über Bluetooth.
  • Klein & Leicht & Stabil -- Mit einem Gewicht von 170 g und einer Länge von 19 cm (eingezogen) ist es Ihnen bequem, es in Ihrer Tasche mitzunehmen. Die federleichte Aluminiumlegierung verspricht dieselbe robuste Qualität.
  • SYOSIN 100% Zufriedenheitsgarantie - Sollten Sie nicht von Anfang an zufrieden sein mit unseren selfiestick, kontaktieren Sie uns bitte umgehend. Wir VERSPRECHEN Ihnen eine zufriedenstellende Lösung.
Bestseller Nr. 2
Bluetooth Selfie Stick Stativ, BlitzWolf 3 in 1 Erweiterbar Monopod Wireless Selfie-Stange Stab 360°Rotation mit Bluetooth-Fernauslöse für iPhone Android Samsung 3,5-6 Zoll Smartphones(Schwarz)
  • [SELFIE STICK STATIV MIT ABZIEHBAR REMOTE] -- 2 in 1 Selfie Stick mit eingebaute Fernbedienung (max: 10m). Sie können Selbstfotografie machen, oder den Controller zu trennen, um Gruppenfotos zu erfassen und aufzeichnen, wie Partys, Hochzeit, Reisen (Tipps: Die Fernbedienung ist an den Selfie Stick angeschlossen statt unabhängig.)
  • [RUTSCHFESTE FUSSMATTE & ALUMINIUMLEGIERUNG & 65mAh LITHIUMBATTERIE] -- Stativ aus Aluminiumlegierung mit rutschfester Fussmatte kann vermeiden, dass die Stativbeine nicht rutschen, sodass das Stativ stabiler ist. Interne 65mAh Lithium-Batterie kann bis zu 50000 selfies nach vollem Aufladung innerhalb von 30 - 45 Minuten aufnehmen
  • [EINSTELLBARER WINKEL & ROTABLE TELEFONHALTER] -- Drei Methode der Drehe von Selfie-swählen-203° Drehkopf mit verstellbarem Knopf + 360° drehbarer Telefonhalter. Und Sie können ihn drehen und einen horizontalen oder vertikalen Kameramodus auswählen, um die besten Winkelfotos zu erhalten.
  • [19.9CM GEFALTETE GRÖSSE UND BIS ZU 67.9CM EXTENSION LÄNGE] -- 148g Gewicht, 19.9cm gefaltete Größe. Mit ausziehbarer Länge zwischen 27.5-67.9cm können Sie eine kurze Länge für intime Aufnahmen verwenden oder eine längere Länge verwenden, um eine größere Landschaft zu bekommen.
  • [LIFETIME QUALITÄT PFLEGE] -- Mit bequemer ABS und PC-Material Griff und Aluminiumlegierung Welle ist diese Selfiestick nicht nur leicht, sondern auch korrosionsbeständig und starke. BlitzWolf leistet 18 Monats Garantie und lange professionellen Unterstützung, um Ihren langfristigen Genuss zu gewährleisten.

Das könnte dich auch interessieren:

Kommentar hinterlassen

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.