Auf Zellen zugreifen mit Cells in Excel VBA
In diesem Tutorial zeige ich Euch wie Ihr mit Cells auf Zellen in Excel VBA zugreifen könnt. Cells ist ideal für Schleifen, da die benötigten Parameter aus Zahlen bestehen. Ich empfehle Euch aber einmal nach der Kombination aus Range und Cells Ausschau zu halten. Damit seit Ihr extrem flexibel.
Das Startvideo der VBA Tutorial Serie auf YouTube findet Ihr hier
Die Playlist meiner VBA Tutorial Serie auf YouTube findet Ihr hier
Achtung:
Benutzt zum Üben eine separate Tabelle für Testzwecke oder eine Kopie des Originals damit Euch keine Daten verloren gehen.
Video zu diesem Tutorial:
Beispiele mit Cells in Excel VBA
Cells ist sehr einfach aufgebaut und benötigt 2 Parameter.
Cells(Zeilennummer, Spaltennummer)
In den nachfolgenden Beispielen zeige ich Euch wie Ihr mit Cells verschiedene Zellen ansprechen oder besser gesagt selektieren könnt. Ich schreibe rechts neben dem Code die jeweilige Position die man über die normale Benutzeroberfläche in Excel gewohnt ist.
Sub CellsTutorial()
Cells.Select 'Hier werden alle Zellen ausgewählt
End Sub
In dem Beispiel selektiere ich die Zelle C2
Sub CellsTutorial2()
Cells(2, 3).Select 'Auswahl von Zelle C2
End Sub
Beim nachfolgenden Beispiel benutze ich FormulaLocal. Das wäre aber eigentlich erst erforderlich wenn man Funktionen benutzt wie SUMME oder WENN die von der Sprache abhängig sind.
Sub CellsTutorial3()
Cells(4, 5).FormulaLocal = "=1+1" 'Eintrag der Formel =1+1 in Zelle E4
End Sub
Im nachfolgenden Code benutze ich eine Formel. Das funktioniert, solange man keine Funktionen benutzt die von der Sprache abhängt.
Sub CellsTutorial4()
Cells(4, 5).Value = "=1+1" 'Eintrag der Formel =1+1 in Zelle E4
End Sub
Weitere Scriptbeispiele:
Aus einem anderen Video, welches sich mit Cells beschäftigt ist dieser Code. Das Video findet Ihr hier: Mit Cells die Zelle Tabelle Arbeitsmappe selektieren
Sub CellsKurzTutorial1()
'Zelle A1 selektieren
Cells(1, 1).Select
End Sub
Sub CellsKurzTutorial2()
'Erste Tabelle und Zelle B1 selektieren
Worksheets(1).Cells(1, 2).Select
End Sub
Sub CellsKurzTutorial3()
'Tabelle mit dem Namen Tabelle1 und Zelle C1 selektieren
Worksheets("Tabelle1").Cells(1, 3).Select
End Sub
Sub CellsKurzTutorial4()
'Tabelle mit dem Objekt-Namen Tabelle 1 und Zelle D1 selektieren
Tabelle1.Cells(1, 4).Select
End Sub
Sub CellsKurzTutorial5()
'Arbeitsmappe mit Index 1 Tabelle mit dem Namen Tabelle1 und Zelle E1 selektieren
Workbooks(1).Worksheets("Tabelle1").Cells(1, 5).Select
End Sub
Sub CellsKurzTutorial6()
'Arbeitsmappe mit Namen Mappe1 Tabelle mit Namen Tabelle1 und Zelle A3 selektieren
Workbooks("Mappe1").Worksheets("Tabelle1").Cells(3, 1).Select
End Sub
Sub CellsKurzTutorial7()
'Arbeitsmappe in der dieses Modul steckt Tabelle mit Namen Tabelle1 und Zelle B3 selektieren
ThisWorkbook.Worksheets("Tabelle1").Cells(3, 2).Select
End Sub
Sub CellsKurzTutorial8()
'Arbeitsmappe mit Objekt-Namen DieseArbeitsmappe Tabelle mit Namen Tabelle1 und Zelle C3 selektieren
DieseArbeitsmappe.Worksheets("Tabelle1").Cells(3, 3).Select
End Sub