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

Bei Excel-Hinweis immer "abbrechen" wählen

Bei Excel-Hinweis immer "abbrechen" wählen
23.06.2004 15:48:47
David
Der Titel verrät es wohl nur unzureichend, deshalb die Erklärung:
ich hab eine Tabelle mit verbundenen Zellen, deren Regionen (nur die
Formatierung betreffend) in eine andere Tabelle kopiert werden sollen.
Allerdings kommt es manchmal vor, dass eine verbundene Region nur erstellt
werden könnte, falls ein anderer Zellen-Wert gelöscht werden würde.
Beispiel:
ich will die verbundene Region A1:A2 erzeugen.
in der Tabelle steht in A1 "Hans" und in A2 "Werner".
In diesem Fall soll die verbundene Region NICHT erstellt werden,
da diese ja für einen Datenverlust sorgen würde.
Excel gibt zudem standardmäßig einen Hinweis aus,
der auf diesen Umstand hinweist.
Nun bräuchte ich einen Weg um diese Hinweise
1. zu unterdrücken und
2. immer "abbrechen" zu wählen
Application.DisplayAlerts = False
hilft nichts, weil da Excel standardmäßig "OK" wählt und
gnadenlos über die Zellen drüberschreibt.
(in meinem Beispiel ginge dann also der Inhalt "Werner" verloren)
Mir fällt leider nix gescheites mehr ein, wie ich das Problem
lösen könnte und bin daher über jeden Vorschlag dankbar.

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

Betreff
Datum
Anwender
Anzeige
NOCH OFFEN mT
Udo
Wieder ein schönes Beispiel, warum verbundene Zellen der natürliche
Feind des Programmierers sind.
Udo
AW: If .MergeCells = True Then
Nike
Hi,
mal ein Ansatz?

Sub Macro2()
Dim rngCell As Range
Dim rngArea As Range
Dim bolTrue As Boolean
Set rngArea = Range("A1:B1")
bolTrue = False
For Each rngCell In rngArea
With rngCell
If .MergeCells = True Then
bolTrue = True
End If
End With
Next
If bolTrue = False Then
rngArea.MergeCells = True
Else
MsgBox "merged Cells can't be merged"
End If
End Sub

Bye
Nike
Problem gelöst :)
24.06.2004 08:23:50
David
Servus Nike,
das war nicht nur ein Ansatz - das war der Weg zur Lösung!!
Hab das leicht abgewandelt und dann läufts. (s.u.)
Danke für die Hilfe!
Gruß
David
Dim rngCell As Range
Dim rngArea As Range
Set rngArea = Range("H29:I30")
Dim Text As Integer
Text = 0
For Each rngCell In rngArea
With rngCell
If .Value UNGLEICH "" Then
Text = Text + 1
End If
End With
Next
If (Text KLEINERGLEICH 1) Then
rngArea.MergeCells = True
End If
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige