Wert einlesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label MsgBox
Bild

Betrifft: Wert einlesen
von: Dieter.K
Geschrieben am: 12.03.2005 19:44:56
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

Bild

Betrifft: =activecell.offset(0,-2).text o.T.
von: ransi
Geschrieben am: 12.03.2005 19:53:53

Bild

Betrifft: AW: =activecell.offset(0,-2).text o.T.
von: Dieter.K
Geschrieben am: 12.03.2005 19:58:11
Besten Danke Ransi!
Gruß
Dieter.K
Bild

Betrifft: ActiveCell.Offset(0, -2).text ...
von: ransi
Geschrieben am: 12.03.2005 20:01:42
hallo dieter
...geht aber in die hose wenn activecell.column <3 ist
ransi
Bild

Betrifft: AW: ActiveCell.Offset(0, -2).text ...
von: Dieter.K
Geschrieben am: 12.03.2005 22:04:25
Hallo Ransi,
wenn ich Dich richtig verstanden habe, kann ich (logischerweise) keinen Wert aus
XX (acivecell.column <3) einlesen, wenn die aktive Spalte "C" ist, da in diesem Fall Spalte "A" die kleinstmögliche (also activecell.column -2) ist.
Gruß
Dieter.K
Bild

Betrifft: AW: ActiveCell.Offset(0, -2).text ...
von: ransi
Geschrieben am: 13.03.2005 09:57:59


      
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 

     Code eingefügt mit Syntaxhighlighter 3.0


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wert einlesen"