Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzeige

Anzeige
05.02.2004 11:02:33
detlef
Hallo,
eine Frage, ich bin sicher, daß Ihr mir helfen könnt.
Ich möchte, wenn ich Zelle k4 anklicke, den Wert aus AF4 in der Zelle M1 angezeigt haben. Bei Klick auf die Zelle k150 den Wert aus AF150 in M1.
Wie kann ich das bewerkstelligen?
Gruß
Detlef

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzeige
05.02.2004 14:34:56
Roland Hochhäuser
Hallo Detlev,
dies in die entsprechende Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("K4")) Is Nothing Then
Range("M1").Value = Range("AF4").Value
End If
If Not Intersect(Target, Range("K150")) Is Nothing Then
Range("M1").Value = Range("AF150").Value
End If
End Sub

Gruß
Roland
AW: Anzeige
05.02.2004 14:46:18
Detlef
Hallo Roland,
ich habe mich bestimmt falsch ausgedrückt, es sollte so sein, daß das Ganze für die Zellen K4 bis K500 funktioniert. Die Zelle K150 sollte nur ein BsP.sein.
Geht das auch?
Gruß
Detlef
Anzeige
Dann so:
05.02.2004 14:58:56
Roland Hochhäuser

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 4 To 500
If Not Intersect(Target, Range("K" & i)) Is Nothing Then
Range("M1").Value = Range("AF" & i).Value
End If
Next
End Sub

Gruß
Roland
Danke, es läuft. oT
06.02.2004 07:20:45
detlef

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige