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.

1 2 3 4 5 6 7 8 9 10

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

Nützliche Funktionen

IsDiskFolder

Liefert True zurück, wenn der Ordner fName existiert

 
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 
Bestseller Nr. 1
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.
AngebotBestseller Nr. 2
Anker Selfie Stick Verstellbare Selfie Stange, ohne Akku, mit Kabel, für iPhone X/ 8/7/ 7 Plus/ 6s/ 6 Android Samsung Galaxy und viele mehr, in Schwarz
  • DAS ANKER PLUS: Schließe dich den über 20 Millionen glücklichen Kunden an!
  • EINSTECKEN UND LOSLEGEN: Selfies waren noch nie so einfach! Einfach das Kabel in den Audio-Port deines Handys einstecken und Fotos schießen! Funktioniert ohne Bluetooth und ohne Aufladen.
  • ANPASSUNGSFÄHIG: Dein Arm reicht vielleicht keine 80 cm weit, aber dieser Selfie-Stick schon! Der ausziehbare Stick und die flexible Handy-Halterung schenken dir Schnappschüsse aus den besten Winkeln!
  • KOMPAKTES DESIGN: Verstaue den Selfie-Stick einfach in deiner Tasche. Mit einem Gewicht von 136 g und einer Länge von 18 cm (eingezogen) ist dieser Stab der perfekte Partner für deine Selfies!
  • PASST SICH ALLEN GRÖßEN AN: Mit fast allen Handys, wie iPhones oder Android Modellen, zwischen 2.2 und 3.3 Zoll kompatibel!

Das könnte dich auch interessieren:

Kommentar hinterlassen

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