einer spalte einen Namen geben und prüfen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...meine Herren.
Nicht nur, wenn die aktive Zelle die Spalte mit Bezeichnung "Titel" trifft, ist interessant, sondern zu berücksichtigen ist auch, dass das nicht immer die gleiche Spalte sein muss. Also muss doch zuerst ermittelt wdn, wo sich "Titel" befindet. Hat der Frager, ChrisB, doch klar zum Ausdruck gebracht!
Deshalb... Grüß dich Chris,
ich schlage eine Ereignisprozedur vor. Wenn das auf die Dauer nervt, dann das Ganze in eine normale Prozedur umsetzen, die per Button bedient wird. In diesem Fall muss die erste Prozedur in die zweite integriert wdn. In der zweiten ersetzt du dann natürlich den Dummy MsgBox durch das, was du da wirklich machen willst.


Rem in das Klassenmodul der Tabelle eintragen:
Option Explicit
Dim TitelSpalte As Integer
Private Sub Worksheet_Activate()
Dim x As Range
For Each x In Range("1:1")
If x.Formula = "Titel" Then
TitelSpalte = x.Column
Exit For
End If
Next x
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox IIf(Target.Column = TitelSpalte, "OK", "nix"), vbOKOnly + vbExclamation, "Titeltreffer"
End Sub

Habe das getestet und siehe, es fkt bei jedem Markierungswechsel. Wenn das bei Berechnungen nicht fkt, weil die Markierung nicht wechselt bzw die berechnete Zelle nicht als aktive Zelle im engeren Sinne von xl angesehen wird, musst du statt des selectionChange- mal das change-Ereignis (Event) ausprobieren.
Wenn du zwischendurch deine Tabelle so veränderst, das "Titel" in einer anderen Spalte zu stehen kommt, muss die Tabelle neu aktiviert (also 1x raus und wieder rein) wdn, damit die Spaltennr neu ermittelt wird.
Hoffe, Antwort in deinem Sinn
Gruß Luc :-?

Hi Chris,
...aus der Hilfe:
Anmerkungen
Wenn diese Eigenschaft mit einem Objektkennzeichner verwendet wird, so ist sie ein Shortcut für ActiveSheet.Range (sie gibt einen Bereich aus dem aktiven Blatt zurück; handelt es sich dabei nicht um ein Tabellenblatt, führt die Eigenschaft zu einem Fehler).
Bei Anwendung auf ein Range-Objekt verhält sich die Eigenschaft relativ zu dem Range-Objekt. Besteht die Auswahl beispielsweise aus der Zelle C3, so gibt Selection.Range("B1") Zelle D3 zurück, da sie sich relativ zu dem Range-Objekt verhält, das von der Selection-Eigenschaft zurückgegeben wird. Dagegen gibt der Code ActiveSheet.Range("B1") immer die Zelle B1 zurück.
Also mit einfach Worten: Range verhält sich immer relativ zum angegebenen Objekt - und ist das Objekt nicht angegeben, dann bezieht es sich immer auf das ActiveSheet - und da ist B2 halt das bekannte B2 ;-)
Wird aber vorher ein Objekt vorgegeben - wie z.B. bei


Sub test()
Range("E1:Z100").Range("A5").Select
End Sub

gibt´s dann E5 - denn der Ausgangspunkt ist E1.
Grüße Boris

Beliebteste Forumthreads (12 Monate)

einer spalte einen Namen geben und prüfen

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

208 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

einer spalte einen Namen geben und prüfen

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

208 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread