Zellenverweis in einer Variablen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Wortsheets, Georg (& alle, die das gedankenlos kopiert haben!); ;-]
aber es gibt 3 andere, alternative Möglichkeiten (jeder folgd HptPkt ist ein separater Vorschlag!):
1. Definiere einen Namen und weise ihm eine Konstante als Fml zu!
2. Schreibe eine leere Prozedur, in die zur Laufzeit eine Befehlszeile mit dem Namen der Variablen eingefügt wird. Die muss dann aber separat aufgerufen wdn, also nicht im gleichen Pgm bzw in einem Zug mit dem Anlegen der vorgenannten Prozedur! Wenn man das Anlegen bspw mit einer Ereignisprozedur lfd erledigt, steht auch immer eine aktuelle Zuweisungsprozedur zV. Man kann's aber auch umgekehrt organisieren.
3. Deklariere die Variable global und Public in einem Klassenmodul, zB eines TabBlattes. Dann kann sie mit CallByName zur Laufzeit aufgerufen wdn → Bsp …
3.1 Im Dokument-Klassenmodul von Tab1 (CodeName umbenannt aus Tabelle1):

Option Explicit
Public alfa As Date
Private Sub Worksheet_Change(ByVal Target As Range)
alfa = Target
End Sub

3.2 In allgemeinem Modul:

Option Explicit
Sub testVar()
MsgBox CallByName(Tab1, Tab1.Cells(1), VbGet)
End Sub

3.3 In Blatt Tabelle1 (CodeName = Tab1):
A1: alfa
Andere Zelle auswählen und beliebiges Datum eintragen → MsgBox mit diesem Datum erscheint!
Gruß, Luc :-?

Hi
schreibe in das Blatt "Setup" Zelle A2 folgenden Text:
Dieser_Wert_ist_in:Datenquelle!D131
und verwende dann folgendes um die Variable zu befüllen:

With Worksheets("Setup").Range("A2")
Public_Variable_Datum_letzte_Aktualisierung = Range(Mid(.value, InstrRev(.Value, ":") + 1)). _
value
End With

im Text der Zelle A2 muss der Zellbezug in der Form: Tabellenblattname!Adresse direkt nach dem Doppelpunkt erfolgen.
Enthält der Tabellenblattname ein Leer- oder sonstige Sonderzeichen, muss der Tabellenblattname in Hochkomma gesetzt werden.
dh nach dem Doppelpunkt muss der Zellbezug so geschrieben werden, wie er auch in einer Formel in einer Excelzelle erscheint.
Einfacher wirds, wenn du deine ausführlichen Texte etwas reduzierst und in Setup!A2 nur den Zellbezug schreibst: Datenquelle!D131
dann reicht der Code:


Public_Variable_Datum_letzte_Aktualisierung = Range(Worksheets("Setup").Range("A2").Value).Value

das ganze ist natürlich keine Verknüpfung sondern statisch, dh der Variablenwert wird nur aktualisiert, wenn dieser Code ausgeführt wird und nicht automatisch, wenn sich der Zellwert in der benannten Zelle ändert.
Gruss Daniel

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenverweis in einer Variablen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread