Spalten mit eindeutigen Überschriften var. machen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim rng as range, lngCol as long Set rng=Rows(1).Find(What:="Spaltenname", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) If Not rng Is Nothing Then lngCol = rng.Column 'Deine Spaltennummer End if

Option Explicit Function SpNeu(alt As String) As String SpNeu = Range(alt & 1) End Function Sub normal() Range("G7") = Range("G3") Range("H7") = Range("H3") End Sub Sub mit_Spneu() Range("G8") = Range(SpNeu("G") & 3) Range("H8") = Range(SpNeu("H") & 3) End Sub Sub Z1_Fuellen() Dim i As Long For i = 1 To 50 Cells(1, i) = Split(Cells(1, i).AddressLocal, "$")(1) Next End Sub

Hi zusammen,
jetzt muß doch noch mal nachfragen, ich zitiere: es können so viele Spalten entfernt oder hinzugefügt werden und ich weiß nicht mehr genau wo jetzt welche [...] Spalten stehen
Wie ist die konkrete Situation?
a) Du hast selbst Spalten geändert
b) ein Anwender hat Spalten geändert
c) Du wirst in Zukunft Spalten ändern
d) ein Anwender wird in Zukunft Spalten ändern
zu a) flapsig gesagt, selber Schuld, aber das ist wenig konstruktiv.
zu a) und b) Du hast doch sicher eine Sicherung, mit der Du die geänderte Version vergleichen kannst: mache beide in zwei Fenstern nebeneinander auf, und Du kannst einigermaßen gut nachvollziehen, was wo geändert wurde.
Du HAST doch eine Sicherung? Wenn ich bei einem Projekt Änderungen vornehme, speichere ich die jeweils neueste Version unter dem aktuellen Datum ab, also etwa Projekt20151123.xls(...)
Eine weitere Möglichkeit ist, daß Du in Deinen Code an Stellen, bei denen Du unsicher bist, einfach den entsprechenden Bereich einfärbst - als optische Hilfe. Wenn Du eine Zuweisung zu einer Zelle/einem Bereich hast, kopierst Du einfach die Zeile, entfernst die Zuweisung aus der Kopie und färbst, etwa so:

Zelle=1,234 ' kopieren
Zelle.interior.color=vbyellow

zu c) und d): selbst die gewünschten "Überschriften" werden niemanden davon abhalten, evtl. eine Spalte zu löschen, und dann ist die Spalte samt Überschrift weg, das bringt Dich auch nicht weiter.
Abhilfe: Blatt schützen.
Schöne Grüße,
Michael

Sepp,
denn a) Dein Argument bzgl. der Vorgabe,
aber auch
b) selbst wenn es bekannt ist, wie müßte man vorgehen?
Angenommen, eine neu Spalte B wird eingefügt, dann verschieben sich alle Werte in der ersten Zeile um eine Stelle nach rechts. Kein Problem, Strg+-, Werte nach links verschieben, dann steht C in B1, D in C1 usw., und die Bezüge MIT Fkt. funktionieren weiterhin, nur daß ich auf die neue Spalte B wiederum OHNE Fkt zugreifen muß.
Aber: was ist, wenn ich nochmal ne Spalte B einfüge?
Verwirrt mich gerade etwas - ich muß ohnehin aus dem Haus...
Am Einfachsten wäre halt, wenn Bezüge automatisch im VBE geändert würden: "M" läßt sich ja schön ersetzen, nur die vielen i,j,k auf ranges mit offset, resize und sonstwas, Gates noch?
Vielleicht sind ausgefuchste Zell-/Bereichsnamen das Mittel der Wahl, die kann man rumschieben, wie man will, ohne groß den code ändern zu müssen.
Happy Exceling,
Michael

Beliebteste Forumthreads (12 Monate)

Spalten mit eindeutigen Überschriften var. machen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten mit eindeutigen Überschriften var. machen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread