Mehrere Zellen in eine Zelle zusammenführen

[BoskoBiati]

Hallo,

mal ein einfaches Makro:

Code:

Sub Schaltfläche2_Klicken()
Dim loletzte As Long
Dim loZeile As Long
loletzte = Sheets("Terminplan").Cells(Rows.Count, 2).End(xlUp).Row
loZeile = ActiveCell.Row

 With Sheets("Angebotsliste")
   Sheets("Terminplan").Cells(loletzte, 2) = Join(Array(.Cells(loZeile, 1), .Cells(loZeile, 4), .Cells(loZeile, 8)), vbLf)
 End With
End Sub

[WillWissen]

Hi,

Wenn das für die fleißigen Helfer hier kein Problem darstellt,

dazu ist ein Forum doch da.  Wir geben sehr gerne Hilfe (am liebsten zur Selbsthilfe :32:).

Schau dich einfach hier im Forum um, benutze die Suchfunktion und lies dir alte Beiträge durch. Damit vieles (unnötiges) Nachfragen vermieden wird, beachte bitte die unter "Wichtige Themen" eingestellte Beiträge.

Und irgendwann bist du soweit, dass du selber Fragen anderer User beantworten kannst.

[Nästo]

BoskoBiati: Leider funktioniert das Makro nicht. Im Anhang versuche ich den Fehler darzustellen.

[BoskoBiati]

Hallo,

ich erinnere an meine Ausführungen:

Freie Auswahl, an welchem Datum das eingefügt werden soll, geht nur über eine weitere Abfrage.

Die Schaltfläche, die Du in Deiner Datei hast, ist im falschen Blatt.

[Nästo]

Wäre es möglich, das ganze in eine Abfrage zu stecken, wenn ich die beiden Blätter auf zwei separate Dateien verteile? Dann kann ich das Problem des nur einmaligen Markierens umgehen oder?

In der Form habe ich das schon mal gesehen. Dachte jedoch wenn ich es in eine Datei packe wird es eher einfacher umsetzbar.

[BoskoBiati]

Hallo,

setze doch erst einmal das Makro so um, dass es funktioniert. Dann kommt der nächste Schritt. Mit zwei Dateien arbeiten ist aufwändiger als mit zwei Blättern!

[Nästo]

Falls das zu stressig sein sollte, reicht mir aber auch eigentlich eine zweite Abfrage, die mir die Daten aus der zusammengeführten Zelle (B1) in das markierte Feld des Terminplans schiebt. Die Schaltfläche sollte dann im Blatt "Terminplan" platziert werden können.

Edit: Erste Abfrage habe ich umgesetzt.

[BoskoBiati]

Hallo,

das Problem liegt darin, dass Du mit ActiveCells arbeitest. Wenn Du die Schaltfläche in einem anderen Blatt hast und dorthin wechselst, ist die aktive Zelle irgendeine Zelle aus dem aktiven Blatt,  und dann produziert das Makro einen Fehler.

[schauan]

Hallo Edgar,

kommt ActiveCell nicht von Dir ?

Man könnte das auch so lösen:

Sub Schaltfläche2_Klicken()
Dim loletzte As Long
Dim loZeile As Long
Application.ScreenUpdating = False
Sheets("Angebotsliste").Activate
loZeile = ActiveCell.Row
With Sheets("Terminplan")
   loletzte = .Cells(Rows.Count, 2).End(xlUp).Row
  .Cells(loletzte, 2) = Join(Array(Cells(loZeile, 1), Cells(loZeile, 4), Cells(loZeile, 8)), vbLf)
  .Activate
End With
Application.ScreenUpdating = True
End Sub

Um den ungeliebten Blattwechsel zu vermeiden, müsste man sich ggf. die aktive Zelle von diesem Blatt irgendwie oder irgendwo speichern.

[BoskoBiati]

Hi André,

der TE wollte aus der Zeile, die gerade markiert ist, die Daten holen. Das geht halt nur über activecell.