Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1172to1176
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
Inhaltsverzeichnis

Makro Bitte

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro Bitte
17.08.2010 15:24:41
mpb
Hallo Achim,
teste mal:
Sub Verbinden()
z = Range("B65536").End(xlUp).Row + 1
anf = 5
For i = 6 To z
If Cells(i, 2)  Cells(i - 1, 2) Then
Range(Cells(anf, 3), Cells(i - 1, 3)).MergeCells = True
anf = i
End If
Next i
End Sub
Gruß
Martin
Danke Funzt Super
17.08.2010 15:28:48
Achim
Gruß Achim
Jetzt noch mit Formatierung
17.08.2010 15:40:01
Backowe
Hi Achim,
Sub ZellenVerbinden()
Dim i As Long
Dim merker As Long
merker = 5
With Sheets("Disposition")
For i = 5 To .Cells(Rows.Count, "B").End(xlUp).Row
If .Cells(i, "B")  .Cells(i + 1, "B") Then
With .Range(.Cells(merker, "C"), .Cells(i, "C"))
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Name = "Arial"
.Font.Size = 16
End With
merker = i + 1
End If
Next
End With
End Sub

Anzeige
AW: Jetzt noch mit Formatierung
18.08.2010 10:11:36
Achim
Hallo Backowe
, Danke für die sinnvolle Erweiterung
Habe da noch eine Frage
wo kann ich den Befehl On Error Resume Next. oder gibt es eine andere möglichkeit einsetzen. Bekomme natürlich beim ZellenVerbinden da ja in der anderen noch infos stehen eine meldung und zwar:
Die Auswahl enhält mehrere Werte. Wenn die Zellen verbunden werden, wird nur der Wert aus der ersten oberen linken Zelle erhalten
Mach mal ein Beispiel ...
18.08.2010 11:56:34
Backowe
Hallo Achim,
... wo die Werte stehen und wie sie nachher in der Zelle stehen sollen, mit Kommata getrennt, mit Zeilenumbruch usw. Da gibt es jede Menge Interpretationsmöglichkeiten.
Gruß Jürgen
Anzeige
AW: Warnmeldung unterdrücken
18.08.2010 15:59:27
mpb
Hallo Achim,
wenn Du nur die Warnmeldung unterdrücken willst, füge am Anfang
Application.DisplayAlerts = False
und am Ende des Codes
Application.DisplayAlerts = True
ein
Gruß
Martin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige