Text wechsel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With Target If .Address = Cells(1, 1).MergeArea.Address Then '// hier li. obere Zelle mit Wort _ anpassen... Cancel = True With .Cells(1, 1) .Value = IIf(.Value = "Hallo", "Moin", "Hallo") End With End If End With End Sub

…Jögg,
wenn du beide AlternativTexte in der VerbundZelle unterbringen würdest, denn die besteht ja aus mindestens 2 Zellen, von denen allerdings immer nur der Inhalt der ersten angezeigt wird. Man kann aber auch die anderen Zellen mit Inhalten füllen. Sogar MatrixFmln lassen sich unterbringen, nur darf man sie dann nicht einfach per Formatierung bilden, sondern muss ein fertiges VerbundZellenFormat mit dem FormatPinsel übertragen. Du benötigst also irgendwo im Blatt noch eine MusterZelle, zB eine ganz normale SpaltenÜberschrift, wenn diese exakt genauso formatiert ist, wobei sie natürlich nur einen (bzw keinen) Text enthalten muss.
Nur das Format ist für alle Zellen einer VerbundZelle gleich. Die Seiten- und HöhenAusrichtung des Textes kann auch nicht nachträglich geändert wdn, sondern muss schon in der MusterVerbundZelle eingestellt sein.
Wenn diese Voraussetzungen erfüllt sind, kannst du mit folgender EreignisProzedur des Blattes arbeiten:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const adMuster$ = "A1:B1"   'anpassen!
If Target.MergeCells Then
If Target.Count = 2 Then
Target.UnMerge
Target = Split(Target.Cells(2) & Chr(0) & Target.Cells(1), Chr(0))
Me.Range(adMuster).Copy
Target.PasteSpecial xlPasteFormats
Application.CutCopyMode = xlNone
End If
End If
End Sub

Falls du mal etwas an dieser VbZelle ändern musst, kannst du mit der folgd Prozedur die EreignisReaktion vorübergehend ab- und später wieder anschalten:

Sub EventFlipFlop()
With Application
.EnableEvents = Not .EnableEvents
End With
End Sub

Morrn, Luc :-?

' ********************************************************************** ' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes '// anpassen.... ' ********************************************************************** Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strName As String, strTel As String, strMail As String With Target If .Address = Cells(1, 1).MergeArea.Address Then '// hier li. obere Zelle mit Daten/Text _ anpassen... Cancel = True With .Cells(1, 1) If InStr(1, .Value, "Max Mustermann", vbTextCompare) <> 0 _ Or .Value = vbNullString Then strName = "Manuela Mustermann" strTel = "xxxx/xxxxx" strMail = "manu.mustermann@muster.de" Else strName = "Max Mustermann" strTel = "yyyy/yyyyy" strMail = "m.mustermann@muster.de""" End If .Value = "für Rückfragen: " & strName & vbCrLf & _ "Tel. " & strTel & vbCrLf & "oder" & vbCrLf & strMail End With End If End With End Sub VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 14

…Jögg,
und musst dich dann auch nicht wundern, wenn du AnpassungsArbeit leisten musst!
Trotzdem hätte dir das mit meiner Lösung ggf leichter fallen können als mit der von Mullit, denn du hättest nur die beiden unterschiedlichen Texte in 2 Zellen der VerbundZelle (vor dem Verbund!) eintragen und die MusterVerbundZelle anlegen müssen. Das wäre allemal universeller gewesen als Mullits Lösung, bei der du bei Änderungen in den PgmCode eingreifen musst. Hättest du die Größe der VerbundZelle gleich mitgeteilt, wäre meine Lösung auch sofort einsatzfähig ausgefallen.
Übrigens, hättest du die anfänglich verschwiegenen Einzelheiten wie formularartig aufgebautes Blatt gleich mitgeteilt, hätte ich dir empfohlen, nicht mit VerbundZellen, sondern mit 2 Textfeldern zu arbeiten, die exakt übereinander liegen. Dadurch wäre das Pgm noch kürzer ausgefallen, denn ein Klick auf das jeweils obenliegende Textfeld hätte es nur per Pgm in den Hintergrund, also unter das andere verschieben müssen.
Aber du hast es so gewollt und darfst nun mit der unrationelleren und ggf pflegeintensiveren Variante leben… :->
Luc :-?

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread