- Wer aufhört besser zu werden hat aufgehört gut zu sein ;)
Auf Zellen zugreifen mit Cells in Excel VBA
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.
|
1 2 3 4 5 6 7 |
Sub CellsTutorial() Cells.Select 'Hier werden alle Zellen ausgewählt End Sub |
In dem Beispiel selektiere ich die Zelle C2
|
1 2 3 4 5 6 7 |
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.
|
1 2 3 4 5 6 7 |
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.
|
1 2 3 4 5 6 7 |
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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
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 |