Live-Forum - Die aktuellen Beiträge
Datum
Titel
31.05.2024 09:50:46
Duplikate löschen
31.05.2024 09:05:28
Tabellenblatt
31.05.2024 08:41:16
Bed. Formatierung bei verbundenen Zellen/Switch zw. Wochen
30.05.2024 23:29:11
Datenbank:Automatisch filtern in neue Excel kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Schleifen-Gestaltung

VBA - Schleifen-Gestaltung
03.10.2022 03:31:11
Jürgen
Guten morgen,
Könnte mir bitte jemand bei einer SCHLEIFEN-GESTALTUNG behilflich sein.
Die ZELL-INHALTE aus den Zellen E8 bis E43 sollen in der Zelle C5 zusammengefügt / rüberkopiert werden.
( ohne Trennzeichen, ohne Kommatar, ohne Alles )
Der Zell-Bereich E8 bis E43 darf nicht verändert werden
Kann mir hierzu jemand ein Lösungsbeispiel anbieten
Mit freundlichen Grüßen
J.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Schleifen-Gestaltung
03.10.2022 08:16:04
Matthias
Hallo Jürgen,

Option Explicit
Sub juergen()
Dim x&
For x = 8 To 43
Range("C5") = Range("C5") & Cells(x, 5)
Next
End Sub
MfG Matthias
AW: Bitte um eine kleine Erweiterung
03.10.2022 08:53:55
Jürgen
Guten Morgen Matthias,
Ja, hab ich mir schon gedacht, das das nur eine "Kleinigkeit" war
Jetzt würde ich gerne einen zweiten Durchlauf starten für den Zell-Bereich
G9 bis G43 und in Zelle C6 rüberkopiert werden
Vorzugsweise natürlich in einem zusammenhängen Code, also mit dem ersten Code von Dir
Da ich als VBA-Leihe in dem Code nicht erkennen kann wie VBA die Spalten ansteuert
kann ich den Code von Dir selbst nicht erweitern
Wenn Du mir hierbei auch noch behilflich sein könntest das wäre sehr nett
Mit freundlichen Grüßen
J.
Anzeige
AW: Hallo Matthias
03.10.2022 09:09:38
Jürgen
Hatte bei der letzten Bedankung der anderen Teilnehmer
vergessen das Häckchen zusätzen
Ich wäre gerne an einer Lösung zur Erweitung interessiert
Mit freundlichen Grüßen
J.
AW: Besten Dank - Bin selbst drauf gekommen
03.10.2022 09:24:46
Jürgen
Ja, hiermit bedanke ich mir rechtherzlich
Teile Dir mit das ich eine Lösung gefunden habe - per VBA
Gruß Jürgen
Warum nicht einfach
03.10.2022 08:38:36
RPP63
Moin!

=VERKETTEN(E8:E43)
Ich bin mir allerdings nicht sicher, ob das (mit Uralt-Excel) auch mit einem Zellbereich funktioniert.
In meiner aktuellen Version jedenfalls geht

=TEXTKETTE(E8:E43)
Gruß Ralf
Anzeige
AW: Warum nicht einfach
03.10.2022 08:58:00
Daniel
Hi
Verketten kann nur Einzelwerte verarbeiten und ist damit nicht besser als &
Textkette ist eine neue Funktion, mein 2016 hat die noch nicht.
Gruß Daniel
AW: Mit Formel hatte ich selbst versucht
03.10.2022 09:02:54
Jürgen
Guten Morgen Ralf
Mit einer Formel lässt meine Aufgaben-Stellung general nicht lösen
Trotzdem vielen Dank für Deine Überlegungen
Gruß J.
AW: Mit Formel hatte ich selbst versucht
03.10.2022 10:00:31
GerdL
Moin Jürgen,
du meinst dein Aufgabensteller will keine Formellösung.

Option Explicit
Sub juergen2()
Dim x As Long
For x = 8 To 43
Range("C5") = Range("C5") & Cells(x, 5)
If x > 8 Then Range("C6") = Range("C6") & Cells(x, 7)
Next
End Sub
Gruß Gerd
Anzeige
AW: Hallo Gerd - Auch Dir besten Dank
03.10.2022 10:26:23
Jürgen
Guten Morgen Gerd
vielen Dank für Deine Bemühungen
Dein Code funktioniert super
Mit freundlichen Grüßen
Jürgen
AW: VBA - Schleifen-Gestaltung
03.10.2022 13:18:05
snb
UDF 

Function F_snb(sn)
F_snb = Join(Application.Transpose(sn), "")
End Function
In Zelle C5: "=F_snb(E8:E43)"

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige