Thema: Werte von jeweils zwei Zeilen verbinden

Home

Gruppe

Allgemein

Problem

Wie kann ich die Werte von zwei aufeinanderfolgenden Zeile zu einem neuen, gemeinsamen Wert verbinden?

Lösung

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

StandardModule: basMain

Sub ZellenVerbinden()
   Dim iRow As Integer, iCounter As Integer, iRowL As Integer
   Application.ScreenUpdating = False
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iCounter = 1 To iRowL Step 2
      iRow = iRow + 1
      Cells(iRow, 2) = Cells(iCounter, 1) & _
         " - " & Cells(iCounter + 1, 1)
   Next iCounter
   Columns(1).Delete
   Columns(1).AutoFit
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zelle

eine Zelle, 2 Formeln, Zahlen aber getrennt	Counter durch Änderung vom Zelleninhalt hochzählen
Multiselect in eine Zelle	Kursiven Text aus Zelle extrahieren
Alle Zellen mit bestimmtem Datum markieren	Vergleichen von zellen
Datum + Uhrzeit aus Textbox richtig in Zelle	Zellenfärbung
ContentControl (WORD) in Excel Zelle schreiben	PQ - Zeichen in Zelle zählen
Zelle färben wenn Wert in Liste vorkommt	Zellen auslesen,wenn im Blattnamen 2019
Mehrere Zellen in mehreren Dateien ersetzen	VBA Code um einzelne Zellen zu sperren
bestimmte Zeichenfolgen in Zellen löschen	Summe von letzter freier Zelle in Spalte
Intelligente Tabelle - Auf Zelle zugreifen von and	2 Zellen vergleichen und Werte in Folgen summieren
1. freie Zelle in nicht zusammenhängenden Bereich	Checkboxen Namen beliebig in eine Zelle schreiben
Variabler Text aus Zelle in Code integrieren	Zellen vergleichen
Targetadress Zelle bestimmen	Rechtsklick VBA nur bestimmte Zellen
Zellen aus Liste in Spalten korrekt umsortieren	Speicherpfad aus zelle zusammenfügen
wenn . in Zelle darf kein OK geschrieben sein	Autofilter mit formartierten Zellen mit VBA
Formel aus Zellen erstellen und einfügen als Forme	Ausgewählte Zellen (Variabel) in Spalte A markiere
Zellen sperren wenn Bedingung in anderer Zelle erf	Wert einer Zelle in Blatt mit diesem Zellennamen
Formel in eine Zelle einbinden	Zelleninhalte übertragen u. fortlaufend anzeigen
Speichern mit Pfad aus Zelle einer nichtaktiven Ma	VBA, 4 Informationen in 4 Zellen schreiben
Zellen einfärben trotz Passwortschutz	Zellen einfärben wenn Bedingung erfüllt
Wenn alle Zellen unter einer Zelle leer sind, dann	Zelle kann nicht geändert werden
Formel in Zelle schreiben ohne festen Zellbezug	Befehlszeile aus Zelle in VBA
Bestimmte Zelle mit Makro berechnen	Text aus Zelle in Internet Seite
Bedingte Formatierung bezogen auf 2. Zelle	Sortieren von Datumswerten in Zelle durch VBA
Zelleneingabe nur per Combobox erlauben	gleichzeitiges Ausfüllen mehrerer Zellen