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 Auftragsformular

  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

  • 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...

  • Zellen mit Formeln, Zahlen oder Text farbig markieren

    101074 Der VBA-Code in Variante 1markiert alle Zellen im benutzten Bereich farbig, die eine Formeln enthalten. Die Variante 2 prüft den Zelleninhalt auf Zahlen und die Variante 3 markiert alle...

  • Array-Bereich direkt in Zell-Bereich schreiben

    Sie kennen sicherlich den gewohnten Umgang (schreiben und lesen) mit Array-Variablen. Normalerweise wird jeder Eintrag der Array-Variable einzeln referenziert. Sub Normales_Array()'**...

  • Autofilter: Gefilterte Datensätze auslesen

    In diesem Artikel erläutern wir, wie sich der über einen Autofilter gefilterte Inhalt aus einer Liste auslesen lässt. Als Ausgangsbasis dient wieder einmal eine Artikelliste mit etwas mehr als 25...

  • Zeilen (Einträge) abhängig vom Datum löschen

    101070 Aus diesem Datenbestand sollen die Zeilen gelöscht werden, deren Datum in Spalte A imMonat November liegt.     A B C D 1 12.08.2002 daten daten daten 2 15.08.2002 daten daten daten 3 20.08.2002...