Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wert einlesen

Forumthread: Wert einlesen

Wert einlesen
12.03.2005 19:44:56
Dieter.K
Hallo Forum,
mit folgender Zeile kann ich die aktive Zelle (nach Doppelklick) in ein Label einer Userform eintragen lassen. Wie muß ich den Code ändern, wenn ich nicht den Wert der Zelle auf die geklickt wurde haben möchte, sondern z.B. 2 Spalten weiter links auslesen möchte.
Label5.Caption = ActiveCell.Address(False, False)
Beispiel: bei Doppelklick auf "G13", wird Label5.Caption "G13". Ich möchte aber nicht "G13" sondern "C13" (bzw. den in "C13" eingetragenen Wert). Hoffentlich habe ich mich verständlich ausgedrückt.
Vieleicht kann mir jemand helfen.
Danke im Voraus.
Gruß
Dieter.K
Anzeige

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

Betreff
Datum
Anwender
Anzeige
=activecell.offset(0,-2).text o.T.
12.03.2005 19:53:53
ransi
AW: =activecell.offset(0,-2).text o.T.
12.03.2005 19:58:11
Dieter.K
Besten Danke Ransi!
Gruß
Dieter.K
ActiveCell.Offset(0, -2).text ...
12.03.2005 20:01:42
ransi
hallo dieter
...geht aber in die hose wenn activecell.column &lt3 ist
ransi
Anzeige
AW: ActiveCell.Offset(0, -2).text ...
12.03.2005 22:04:25
Dieter.K
Hallo Ransi,
wenn ich Dich richtig verstanden habe, kann ich (logischerweise) keinen Wert aus
XX (acivecell.column &lt3) einlesen, wenn die aktive Spalte "C" ist, da in diesem Fall Spalte "A" die kleinstmögliche (also activecell.column -2) ist.
Gruß
Dieter.K
AW: ActiveCell.Offset(0, -2).text ...
13.03.2005 09:57:59
ransi


      
Hallo dieter
Hast du richtig erkannt.
wenn die activecell 
in spalteA oder SpalteB liegt kommt:
laufzeitfehler 
'1004'
Anwendungs- oder objektdefinierter Fehler
ist aber kein problem.
den fehler kannst du z.B so aufffangen
Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
If ActiveCell.Column < 3 Then
        MsgBox 
"Activecell liegt in SpalteA oder SpalteB"
        
'
        'anderer code zur fehlerbehandlung
        '
        Else:
        Label1.Caption = ActiveCell.Offset(0, -2).Text
    
End If
End Sub
ransi 
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige