Adressierung in Excel-Tabellen
06.05.2024 16:22:22
jay-jey
ich bekomme aus einem Programm immer einen Excel Export mit einigen Daten. Diese Tabelle muss ich nun in ein Datenblatt umbauen, also jede zeile ein eingens Blatt. Dies funktioniert auch einigermaßen gut. Wenn jedoch einer meiner Kollegen an der Vorlage rum spielt dann muss ich bis jetzt immer im Makro händisch wieder die richtigen Zeilen und Spalten eintragen. Weil z.B. Überschrift1 jetzt nicht mehr in Spalte 1 ist sondern in Spalte 5. Da sich aber die Überschriften in der Tabelle nicht ändern. Suche ich nach einem besseren Weg.
Ich dachte mir ich könnte das Arbeitsblatt ja zu einer Excel Tabelle machen und dann so weiter arbeiten. Hier ist ja auch beschrieben wie z.B. einfach Sortierungen erstelle
https://www.automateexcel.com/de/vba/vba-tabellen-und-listobjects/
Range("Tabelle1[[#Headers],[Umsatz]]").Select Wie kann ich nun z.B. diese Schleife so umbauen, dass ich nicht immer händisch die Spalten anpassen muss wenn diese sich Verschieben.
For intZeile = 2 To OriginalBlatt.UsedRange.Rows.Count
ArbeitsBlatt.Cells(1, 2).Value = OriginalBlatt.Cells(intZeile, 3).Value
next i
Wie kann ich also die Adressierung der Zellen mit den Überschriften machen.
Irgendwie suche ich mir da grad nen Wolf in Google weil Tabelle und Excel irgendwie immer gleichwertig benutzt werden.
Anzeige