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

Private Sub Worksheet_Change(ByVal Target As Range

Private Sub Worksheet_Change(ByVal Target As Range
11.08.2006 15:02:51
Peter
Hallo,
habe eine Datei hier im Forum ausgegraben.
Möchte gern das in F4 z.B. information zu dieser Stadt angezeigt wird.
Wie kann man das hin bekommen?
Habe die Datei hochgeladen.
https://www.herber.de/bbs/user/35731.xls
Mfg Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Worksheet_Change(ByVal Target As Range
ransi
Hallo Peter
Reicht dir das als Hilfe ?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$4" Then Exit Sub
    If Range("$B$4").Value = "Berlin" Then
ActiveSheet.Pictures("Bild 32").Visible = True
[f4] = "Berlin"
Else
ActiveSheet.Pictures("Bild 32").Visible = False
End If
    If Range("$B$4").Value = "Cordoba" Then
ActiveSheet.Pictures("Bild 34").Visible = True
[f4] = "Cordoba"
Else
ActiveSheet.Pictures("Bild 34").Visible = False
End If
    If Range("$B$4").Value = "Prag" Then
[f4] = "Prag"
ActiveSheet.Pictures("Bild 35").Visible = True
Else
ActiveSheet.Pictures("Bild 35").Visible = False
End If
    If Range("$B$4").Value = "Wien" Then
ActiveSheet.Pictures("Bild 36").Visible = True
[f4] = "Wien"
Else
ActiveSheet.Pictures("Bild 36").Visible = False
End If
End Sub


ransi
Anzeige
AW: Private Sub Worksheet_Change(ByVal Target As Range
11.08.2006 16:14:53
peter
Hallo Ransi
vielen Dank für Deine Antwort.
Nur soll in F4 viel mehr stehen als ein Wort.
3 Zeilen bestimmt.
Habe gerade besuch bekommen.
Melde mich noch mal.
vielen Dank.
MFG Peter
AW: Private Sub Worksheet_Change(ByVal Target As Range
ransi
HAllo Peter
versuch es mal so:
[f4] = "dies ist ein gaaaaaaaaaaaaaanz" & Chr(10) & " laaaaaaaaaaaanger" & Chr(10) & " Teeeeeeeext"
ransi

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige