Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen kopieren_einfügen

Forumthread: Zellen kopieren_einfügen

Zellen kopieren_einfügen
03.03.2023 07:44:42
Milan
Ich habe in eine warscheinlich abgeschlossener Sitzung noch eine Frage.
Die Nachfrage bezieht sich auf:
https://www.herber.de/forum/cgi-bin/f_each.pl?idx=1922250
Die Code:
Union(wksQ.Range("A" & lngZeile & ":D" & lngZeile), _
             wksQ.Range("J" & lngZeile), wksQ.Range("K" & lngZeile)).Copy

Wie soll ich schreiben wenn Range A danach B, C, D mit komma getrennt hintereinander in eine Zelle, danach F G haben möchte, also
("A") ("B, C, D") ("J") ("K") ? Ich habe versucht nachträglich eine Zelle mit Formeln zu bestücken um B, C, D auszulesen
aber dann macht die Code eigenes Ding, warscheinlich weil drin Formeln sind oder weil nicht Reihenach läuft.
Ich weis es nicht ob das möglich wäre weil die Code sollte eigentlich kopieren und einfügen
Danke in voraus
Gruß. Milan
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kopieren_einfügen
03.03.2023 13:34:31
Milan
Ich glaube es gibt keine Lösung wenn keiner meldet
AW: Zellen kopieren_einfügen
04.03.2023 12:01:14
Milan
Danke an Yal, aber ich schafe es nicht.
Kann mir jemand vieleicht doch dabei helfen.
Ich habe in meinem zweitem Beitrag eine Mappe hochgeladen mit Beschreibung und Code,
aber für Blatt3 habe ich einfach keine Lösung. Etwas ist immer nur nicht was ich wollte.
Danke in voraus
Milan
Anzeige
AW: Zellen kopieren_einfügen
05.03.2023 10:52:05
hary
Moin
Dann teste mal. Habe zum verstehen Spaltenbuchstaben genutzt.
Sub KopierenEinfügen1()
Dim lngZeile As Long, j As Long
Dim wksQ As Worksheet, wksZ As Worksheet
  Set wksQ = Worksheets("Tabelle1") 'Tabelle1
  Set wksZ = Worksheets("Tabelle2") 'Tabelle2
    j = 2
    For lngZeile = 2 To wksQ.Cells(wksQ.Rows.Count, 1).End(xlUp).Row
        If wksQ.Cells(lngZeile, 6).Value = "Begriff 5" Then
          wksZ.Cells(j, "B") = wksQ.Cells(lngZeile, "A")
          wksZ.Cells(j, "C") = wksQ.Cells(lngZeile, "B") & ", " & wksQ.Cells(lngZeile, "C") & ", " & wksQ.Cells(lngZeile, "D")
          wksZ.Cells(j, "D") = wksQ.Cells(lngZeile, "J")
          wksZ.Cells(j, "E") = wksQ.Cells(lngZeile, "K")
        End If
         j = j + 1
    Next
 End Sub
gruss hary
Anzeige
AW: Zellen kopieren_einfügen
05.03.2023 11:55:01
Milan
Hallo Hary,
Du bist mein Held, das funktioniert und damit kann ich mein Projekt deutlich
mehr komplizieren und vor allem Dateigröße reduzieren.
Genial
Danke, danke, danke.
Gruß. Milan
AW: Zellen kopieren_einfügen
03.03.2023 17:10:30
Yal
Hallo Milan,
Lösung gibt es immer ;-)
Versuche solche Konstrukt:
Sub test()
Dim wQ As Worksheet
Dim R As Range
    
Const lngZeile = 21
    Set wQ = Worksheets("Tabelle1")
    Set R = Intersect(wQ.Range("A:D, J:J, K:K"), wQ.Rows(lngZeile))
    Debug.Print R.Address
End Sub
oder wenn es in einer Schleife gehen soll:
Sub test()
Dim wQ As Worksheet
Dim R As Range
Dim Adr
Const lngZeile = 21
    Set wQ = Worksheets("Tabelle1")
    For Each Adr In Array("A:A", "B:D", "J:J, K:K")
        Set R = Intersect(wQ.Range(Adr), wQ.Rows(lngZeile))
        Debug.Print R.Address
    Next
End Sub
VG
Yal
Anzeige
AW: Zellen kopieren_einfügen
03.03.2023 23:25:51
Milan
Hallo Yal,
leider die Code schreibt nichts.
Ich habe als Eläuterung eine Mappe hochgeladen damit wird bessere Übersicht.
https://www.herber.de/bbs/user/158112.xlsm
Es handelt sich um Tabbele3
Gruß
Milan
AW: Zellen kopieren_einfügen
04.03.2023 00:29:49
Yal
Hallo Milan,
es geht nicht darum, dass der Code etwas schreibt (tut er eigentlich schon, aber nur im Direktfenster), sondern darum, dass du ein Beispiel bekommst, wie man mit mehrfacher Definition von Bereiche umgehen kann.
Es ist ein Zünder aber das Brennmaterial musst du selber liefern.
VG
Yal
Anzeige

Forumthreads zu verwandten Themen

mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 Beiträge
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Anzeige
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Makro für Zellen kopieren und drucken
rayban

Hallo,
ich bitte Euch um Hilfe bei meinem Problem.
Ich möchte per Makro Zeiterfassungslisten mit Namen versehen und ausdrucken.
z.B. ich habe eine Spalte (Spalte V und W) mit Namen und Personalnummern (außerhalb des Druckbereichs), nun sollten die Namen und Personalnummern in die Ze...
08.02.2010 19:12:16
Thread-ID: 1136824
5 Beiträge
Zeile einfügen und kopieren
Matthias

Hallo zusammen,
ich habe wieder mal ein kleines Problem und komme nicht ganz zurecht damit.
Ich habe ein Tabellenblatt mit z.Zt. knapp 4000 Einträgen (Zeilen) und mehreren Spalten (Spalten A bis AB).
Jetzt will ich irgendwo eine neue Zeile einfügen, dabei sollte der Inhalt von einig...
12.03.2010 07:32:25
Thread-ID: 1145269
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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