Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
R
O
J
E
K
T
A
N
F
R
A
G
E
   

Zugriff auf Daten über VBA und Bereichsnamen

Wenn für einen Zellbereich ein Bereichsname vergeben wurde, kann auf diesen über VBA zugegriffen, also gelesen und geschrieben werden.

In diesem Beispiel wurde ein Bereich mit einer Größe von 12 Zeilen und 2 Spalten definiert. Als Bereichsname wurde der Begriff dutzend vergeben, so dass der Zugriff auf die einzelnen Werte über diesen Namen erfolgt.

In der folgenden Abbildung sehen Sie den Aufbau des Datenbereichs mit dem Bereichsnamen dutzend:

Ein großer Vorteil bei dieser Vorgehensweise liegt darin, dass der definierte Bereich beliebig auf dem Tabellenblatt verschoben werden kann und der Zugriff über VBA trotzdem ohne Anpassung des Codes funktioniert, da der Code nicht auf Zellen sondern auf den vergebenen Namen referenziert.

Die folgenden Beispiele zeigen, wie der gesamte Bereich, einzelne Spalten des Bereichs oder nur einzelne Werte  ausgelesen und per VBA verändert werden können.

1. Alle Werte aus dem Bereich auslesen

Über eine For-Each-Next-Schleicht wird der gesamte Bereich von Zelle B7 bis C18 durchlaufen und die Werte werden über eine MessageBox ausgegeben.

Sub AlleWerteAusNamensbereich()
'** Alle Werte aus dem Bereichsnamen "dutzend" auslesen
'** Dimensionierung der Variablen
Dim rngZelle As Range

'** Durchlaufen aller Zellen im Bereich
For Each rngZelle In Range("dutzend")
  MsgBox rngZelle
Next rngZelle

End Sub

2. Nur 1. Spalte aus dem Bereich auslesen

Sub ZellbereichAuslesen_Spalte1()
'** Alle Werte aus dem Bereichsnamen "dutzend" auslesen

'** Dimensionierung der Variablen
Dim arBereich, lngS As Long, lngZ As Long

'** Bereich definieren
arBereich = [dutzend]

'** Spalte 1 durchlaufen
For lngZ = LBound(arBereich) To UBound(arBereich)
  MsgBox "Zeile : " & lngZ & ", Spalte : " & 1 & _
    ", Inhalt : " & arBereich(lngZ, 1)
Next

End Sub

3. Nur 2. Spalte aus dem Bereich auslesen

Der Code aus diesem Beispiel ist fast identisch mit dem Code aus Beispiel 2. Einziger Unterschied ist die Angabe der Spaltennummer innerhalb der MessageBox. Dort wird anstatt Spalte 1 die Spalte 2 ausgegeben.

Sub ZellbereichAuslesen_Spalte1()
'** Alle Werte aus dem Bereichsnamen "dutzend" auslesen

'** Dimensionierung der Variablen
Dim arBereich, lngS As Long, lngZ As Long

'** Bereich definieren
arBereich = [dutzend]

'** Spalte 1 durchlaufen
For lngZ = LBound(arBereich) To UBound(arBereich)
  MsgBox "Zeile : " & lngZ & ", Spalte : " & 2 & _
    ", Inhalt : " & arBereich(lngZ, 2)
Next

End Sub

4. Alle Daten aus dem Zellbereich auslesen (Version 2)

Diese Variante entspricht inhaltlich dem Beispiel 1. Im Beispiel 1 wird der komplette Inhalt des Datenbereichs über eine For-Each-Next-Schleife abgegriffen. In diesem Beispiel erfolgt das Auslesen des Datenbereichs über zwei verschachtelte For-Next-Schleifen. Diese Variante ist unter Umständen für die eine oder andere Anwendung etwas flexibler.

Sub ZellbereichAuslesen_AlleSpalten()
'** Alle Werte aus dem Bereichsnamen "dutzend" auslesen (Version 2)

'** Dimensionierung der Variablen
Dim arBereich, lngS As Long, lngZ As Long

'** Bereich definieren
arBereich = [dutzend]
       
'** alle Zeilen und alle Spalten durchlaufen
For lngZ = LBound(arBereich) To UBound(arBereich)
    For lngS = LBound(Application.Transpose(arBereich)) _
        To UBound(Application.Transpose(arBereich))
            MsgBox "Zeile : " & lngZ & ", Spalte : " & lngS & _
                ", Inhalt : " & arBereich(lngZ, lngS)
    Next lngS
Next lngZ
End Sub

5. Einzelne Werte auslesen

Über die Angabe der Koordinaten (Zeile, Spalte) kann auf einzelne Zellen innerhalb des Datenbereichs zugegrifen werden. So liest der Befehl wert = arBereich(11,2) den Wert aus Zeile 11 in Spalte 2 aus. Das Ergebnis lautet damit "Wert B11".

Sub einzelnetWert()
'** Einzelnen Wert auslesen

'** Dimensionierung der Variablen
Dim arBereich

'** Bereich definieren
arBereich = [dutzend] 'Liste1 ist der benannte Bereich !

'** Wert auslesen und ausgeben
wert = arBereich(11, 2)
MsgBox wert
End Sub

6. Ersten Wert aus dem Datenbereich auslesen

Über eine spezielle Funktion kann der erste Wert des Datenbereichs gelesen werden, im Beispiel also den Wert "Wert A1".

Sub ErsterWert()
'** Ersten Wert aus dem Bereich auslesen

'** Dimensionierung der Variablen
Dim bereich

'** Bereich definieren
bereich = Range("dutzend")

'** ersten Wert auslesen und ausgeben
MsgBox LBound(bereich)
MsgBox bereich(LBound(bereich), 1)

End Sub

7. Letzten Wert aus dem Datenbereich auslesen

Über eine spezielle Funktion kann der letzte Wert des Datenbereichs gelesen werden, im Beispiel also den Wert "Wert B12".

Sub LetzerWert()
'** Letzten Wert aus dem Bereich auslesen

'** Dimensionierung der Variablen
Dim bereich, lngS

'** Bereich definieren
bereich = Range("dutzend")

'** letzte Spalte ermitteln
lngS = UBound(Application.Transpose(bereich))

'** Letzten Wert ausgeben
MsgBox "Zeile: " & UBound(bereich) & " Spalte: " & lngS
MsgBox bereich(UBound(bereich), lngS)

End Sub

8. Wert gezielt ändern

Dieses Beispiel zeigt, wie ein Wert im Datenbereich über Angabe der Koordinaten für Zeile und Spalte gezielt geändert werden kann. Der Befehl bereich(6, 2) = "Wert XY" ändert den Wert in Zeile 6, Spalte 2 entsprechend ab.

Sub Wert_Aendern()
'** Wert im Zellbereich gezielt ändern

'** Dimensionierung der Variablen
Dim bereich As Range

'** Bereich definieren
Set bereich = Range("dutzend")

'** Zeile 6, Spalte 2 ändern
bereich(6, 2) = "Wert XY"
End Sub

 

   

Relevante Artikel

  • Anzahl der markierten Zeilen ermitteln

    101068 Wenn Sie wissen möchten, wieviele Zeilen gerade markiert sind, dann hilft Ihnen diesesMakro weiter. Die Anzahl der Zeilen wird in einer MsgBox ausgegeben.  Es muss nicht die gesamte Zeile...

  • Zellinhalt auf Formel, Zahl, Datum, Fehler oder Text prüfen

      In diesem Beispiel zeigen wir Ihnen, wie sich ganz einfach ermitteln lässt, welcher Datentyp sich in einer Zelle befindet. VBA unterscheidet dabei grundsätzlich folgende Inhalts-Typen: • Formel • Zahl...

  • Zwischenablage per VBA leeren

    Wenn Sie größere Datenmengen über die Zwischenablage in Excel per VBA kopieren, kann dies zu Problemen beim Schließen der Datei führen. Excel gibt beispielsweise die Meldung "Das Bild ist zu groß und...

  • Daten direkt bei Eingabe ersetzen

    In diesem Beispiel zeigen wir, eine Alternative Methode zur AutoKorrektur-Option um Daten direkt bei der Eingabe ersetzen zu lassen. Sehr wir uns aber zunächst die integrierte AutoKorrektur-Option und...

  • Übertragen bzw. Kopieren der Zeilenhöhe

    Sie haben eine Tabellenblatt, welches individuell formatiert ist. Wenn nun ausschließlich die Zeilenhöhen des markierten Bereichs von einem Tabellenblatt auf ein anderes Blatt oder von einem...

   
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.
Weitere Informationen Ok