Excel und VBA

Hier habe ich Ihnen ein paar kleine Makros aufgestellt, die Sie vielleicht in Ihrem Alltag mit Excel und VBA gebrauchen können. Es sind keine großen und komplexen Programme, sondern kleine Routinen.

1. Zeilen und Spalten markieren

1.1 Das folgende Makro markiert die Zeilen 3 bis 5:

Sub ZeilenMarkieren()
         Rows("3:5").Select
End Sub

1.2 Das folgende Makro markiert die Spalten C bis E:

Sub SpaltenMarkieren1()
         Columns("c:e").Select
End Sub

1.3 Das folgende Makro  markiert die Spalten E, G und K:

Sub SpaltenMarkieren2()
         Range("e:e, g:g, k:k").Select
End Sub

 

1.4 Andere Variante mit Variablen und Mengendefinitionen:

Sub Mark()
        Dim a1 As Range
        Dim c1 As Range
        Dim AC As Range

        Set a1 = Range("A:A")
        Set c1 = Range("C:C")
        Set AC = Union(a1, c1)
        AC.Select
End Sub

1.5 Zählen von markierten Spalten:

Sub ZaehlenSp()
        Dim Ab As Integer
        Dim j As Integer
        Ab = Selection.Areas.Count

        If Ab <= 1 Then
            MsgBox "Der Bereich enthält " & Selection.Columns.Count & " Spalten."
        Else
            For j=1 To Ab
                    MsgBox "Der Bereich " & j & " der Markierung enthält " & Selection.Areas(j).Columns.Count & " Spalten."
            Next j
        End if
End Sub

 

Gruß
Ersin Söbütay

Aufrufe: 347

Add a Comment

WP2Social Auto Publish Powered By : XYZScripts.com