Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige