Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellenbezug Address in variable aufteilen

Zellenbezug Address in variable aufteilen
18.08.2006 13:59:40
Bengel
Hallösche
Ich will einen Zellenbezug in 2 variablen zerlegen um diese dann mit Cells benutzen zu können
For Each Zelle In Selection
If Zelle.Value = "" Then
Else
MsgBox Zelle.Address
y = Zelle.Address
wenn ich das obige Beispiel ausführe hab ich ja in der Variable y als Beispiel sowas wie $R$16
Ich suche jetzt eine Möglichkeit die werte R und 16 da rauszubekommen und die dann
im Cells - Befehl zu verwenden.
Habe mir gedacht mit Len das ganze zu zerlegen aber das wird dann glaube ich recht umständlich oder vor allem wenn die Zellbeüge dann unterschiedlich werden 1 oder mehrstellig ?
Gruß Bengel

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenbezug Address in variable aufteilen
18.08.2006 14:35:33
Heiko
Hallo Bengel,
warum den so kompliziert ?!

Sub Test()
Dim zelle As Range
For Each zelle In Selection
If zelle.Value = "" Then
' Tu dies
Else
MsgBox "Zeile  = " & zelle.Row
MsgBox "Spalte = " & zelle.Column
End If
Next
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Zellenbezug Address in variable aufteilen
18.08.2006 16:35:57
Bengel
Dankeschön klappt prima und so einfach :-)
Ich hätte da weis Gott wie geleftet und gerightet und rumgeschoben..
Merci
AW: Zellenbezug Address in variable aufteilen
18.08.2006 14:39:26
Peter
Hallo Bengel,
so:

Sub Test()
Dim Zelle    As Range
Dim iSpalte  As Integer
Dim lZeile   As Long
For Each Zelle In Selection
If Zelle.Value = "" Or _
Len(Trim(Zelle.Value)) = 0 Then
Else
MsgBox Zelle.Address
iSpalte = Zelle.Column
lZeile = Zelle.Row
MsgBox "Address = " & Zelle.Address & " Spalte = " & Zelle.Column & _
" Zeile = " & Zelle.Row
End If
Next Zelle
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Zellenbezug Address in variable aufteilen
18.08.2006 16:38:34
Bengel
Dankeschön klappt auch prima
was macht den der Len Trim Befehl ist das noch eine zusätzliche sicherheit das die zelle wirklich leer ist?
Gruß Bengel
AW: Zellenbezug Address in variable aufteilen
18.08.2006 18:01:39
Peter
Hallo Bengel,
wenn in der Zelle ein Leerzeichen steht, kannst du es mit If Zelle = "" nicht finden.
Aber mit Trim werden führende und nachfolgende Leerzeichen aus einer Zelle entfernt.
Das heißt " Hugo " wird durch Trim zu "Hugo".
Wenn nun eine so geleerte Zelle die Länge Null hat, ist sie leer.
Viele Grüße Peter

201 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige