Zeilenumbruch bei Formelbezug
28.09.2003 21:29:12
Markus
Habe eine Eingabe Zelle, z.B. A1 und möchte in einer anderen Zelle, z.B. A2 einen Text dargestellt bekommen, den ich in A1 vorgebe. Beide Zellen haben die Formatierung "Zeilenumbruch". Dabei möchte ich, dass die Zeile "2,2" einen Zeilenumbruch macht, wenn es durch die Vorgabe erforderlich ist.
Habe das mit folgender VBA versucht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
Rows("2,2").EntireRow.AutoFit
End Sub
Den Code hat mir mal ein freundlicher Formumexperte gesagt und es hat für Testzwecke auch geklappt. Nochmal Danke! Jetzt mein Problem; die Eingabe Zelle und die Formelbezugszelle stehen in zwei unterschiedlichen Tabellbereichen. Mein Versuch mit den dazugehörigen Zellbezügen sieht dann so aus:
Code unter "Einzelelemente" eingefügt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "Eingabe!R6" Then Exit Sub
Rows("Einzelelemente!31,31").EntireRow.AutoFit
End Sub
... hat nicht geklappt ;-( weiß nicht was ich da falsch mache, aber Ihr habt bestimmt die Antwort.
Vielen Dank schonmal vorab!
Gruß Markus