Thema: Zellen verbinden, ohne dass Werte verlorengehen

Home

Gruppe

Format

Problem

Die Zellen aus Spalte A und B sollen verbunden werden, ohne dass die Werte aus Spalte B verlorengehen.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Verbinden()
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, 1) = Cells(iRow, 1) & " - " & Cells(iRow, 2)
      Cells(iRow, 2).ClearContents
      Range(Cells(iRow, 1), Cells(iRow, 2)).Merge
      iRow = iRow + 1
   Loop
   Columns(1).AutoFit
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und Bereich

Bedingte Formatierung vor Copy/Paste schützen	Bed. Formatierung, wenn alle Beding. erfüllt.
Dynamischer Datenbereich im Diagramm	Telefonnummer automatisch per VBA formatieren
Komplettes Excel Sheet kopieren mit Formaten	Bedingte Formatierung per VBA mit Schleife
Kartendiagramm per VBA erstellen und formatieren	Bereich als Bild speichern.
bedingte Formatierung	Zellfarbe per Cond Formatting nach Zellfarbe änder
1. freie Zelle in nicht zusammenhängenden Bereich	Bestimmtheitsmass nach vorgegebenen Bereich
UserForm im Querformat drucken	Bedingte Formatierung
Teilstringabfrage bei bedingter Formatierung	Bestimmten Bereich anhand Zeilenabgabe kopieren
Bedingte Formatierung mit UND Verknüpfung	Bereich löschen
Array - Index außerhalb des gültigen Bereichs	Textformat (VBA)
zoom auf Druckbereichsbreite anpassen	Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format	Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben	bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren	Bereich syncronisieren II
Bedingte Formattierung	Bedingte Formatierung - kleiner als Fehler
Zahlenformat Handynr.	Diagramme und ihr Format
Zeilenbereich auf Tabelle übertragen	Druchbereiche auf eine Seite
bedingte formatierung per VBA	Bedingte Formatierung bezogen auf 2. Zelle
Formatgleichheit von Zeichenfolgen für SVERWEIS	bedingte Formatierung
Bedingte Formatierung	Tabellen - Zellen - Formatieren -
Definitionsbereich	Bereich von rechts nach links auslesen?
Format übertragen	Datumsformatierung
Formatierung anderer Diagramme	Namen definieren für bestimmten Bereich
Nur einen Eintrag im Bereich zulassen	Kommentar in erste zelle einess Bereiches
Zellenformatierung speichern