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

Zellenbereich kopieren und Zeichen ergänzen

Forumthread: Zellenbereich kopieren und Zeichen ergänzen

Zellenbereich kopieren und Zeichen ergänzen
18.05.2015 22:52:51
Alex
Hallo,
ich bin auf der Suche nach einem Makro bei dem ich einen Zellenbereich z.B. "A9:H9" oder auch "A9:H21" usw. (wird mit LastRow und LastCol geregelt) in ein anderes Tabellenblatt kopieren kann und dabei vor dem Inhalt immer "Tabellenblattnummer_" ergänze.
Also vorher: "Zelleninhalt" nachher: "Tabellenblattnumer_Zelleninhalt" in einem anderen Tabellenblatt.
Grüße
Alex

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenbereich kopieren und Zeichen ergänzen
18.05.2015 23:10:17
Uwe
Hallo Alex,
z.B.:
Sub BereichKopieren()
Dim oWsQ As Worksheet, oWsZ As Worksheet
Dim varC As Variant, i As Long, j As Long, strI As String
Set oWsQ = ActiveSheet
Set oWsZ = Worksheets("Tabelle3")
strI = oWsQ.Index & "_"
varC = oWsQ.Range("A9:H9").Value
For i = 1 To UBound(varC, 1)
For j = 1 To UBound(varC, 2)
varC(i, j) = strI & varC(i, j)
Next j
Next i
oWsZ.Range("A35").Resize(i - 1, j - 1).Value = varC
End Sub
Gruß Uwe

Anzeige
AW: Zellenbereich kopieren und Zeichen ergänzen
19.05.2015 17:46:30
Alex
Danke Uwe,
das hat geklappt.
Ist es auch möglich mit dem Ansatz den kopierten Bereich zu kopieren, ergänzen und zu transponieren?
Hab es mit vertauschen von i und j nicht ganz geschafft.
Gruß
Alex

AW: Zellenbereich kopieren und Zeichen ergänzen
19.05.2015 19:07:26
Alex
Hat sich erledigt mit: varD = Application.WorksheetFunction.Transpose(varC)

Anzeige
AW: Zellenbereich kopieren und Zeichen ergänzen
20.05.2015 16:58:32
Alex
Nun habe ich doch noch eine Frage.
Ich möchte nun die Zeichen wieder ab dem Zeichen "_" abschneiden und nur alles nach dem "_" kopieren.
Wie ist das mit einem Makro möglich?
Also vorher: "Zahl_Text"
und Nachher: "Text"

AW: Zellenbereich kopieren und Zeichen ergänzen
20.05.2015 17:32:07
Uwe
Hallo Alex,
Sub BereichKopieren()
Dim oWsQ As Worksheet, oWsZ As Worksheet
Dim varC As Variant, i As Long, j As Long, strI As String
Set oWsQ = ActiveSheet
Set oWsZ = Worksheets("Tabelle3")
strI = oWsQ.Index & "_"
varC = oWsQ.Range("A9:H9").Value
For i = 1 To UBound(varC, 1)
For j = 1 To UBound(varC, 2)
varC(i, j) = strI & varC(i, j)
Next j
Next i
oWsZ.Range("A35").Resize(i - 1, j - 1).Value = varC
Application.Goto oWsZ.Range("A35"), True
MsgBox "Übertrag mit Index fertig."
For i = 1 To UBound(varC, 1)
For j = 1 To UBound(varC, 2)
varC(i, j) = Mid(varC(i, j), InStr(1, varC(i, j), "_") + 1)
Next j
Next i
oWsZ.Range("A35").Resize(UBound(varC, 1), UBound(varC, 2)).Value = varC
MsgBox "Index wieder weg"
End Sub
Gruß Uwe

Anzeige
AW: Zellenbereich kopieren und Zeichen ergänzen
20.05.2015 23:23:02
Alex
Danke Uwe!
Klappt Super!

Forumthreads zu verwandten Themen

Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
Anzeige
wenn Wert in Zeile dann Spalte kopieren
Valeri

Hallo liebes Excelforum,
ich möchte von mappe1.xls alle Spalten ab Spalte C, in die mappe2.xls kopieren bei denen in der Zeile 1 oder 2 (sollte einstellbar sein) der Wert größer 0 ist. Die anderen Spalten sollen nicht mitkopiert werden.
Könnt ihr mir dabei helfen?
26.08.2011 19:40:08
Thread-ID: 1227663
5 Beiträge
Wenn dann Zellen kopieren
Bon

Hallo,
ich habe folgendes Problem:
Wenn eine Zahl in B82 bis B93 auftaucht, dann soll in B15 bis B27 nachgeschaut werden, ob die Zahl identisch ist.
Wenn ja, dann sollen die nächsten 4 Zeilen rechts davon kopiert werden (Zieltort:neben B82-B93)
Freue mich über jeden Vorschlag!
16.09.2012 15:30:13
Thread-ID: 1278830
4 Beiträge
Anzeige
Wenn Bedingung erfüllt, dann Zeile kopieren
mike

Hallo,
ich bräuchte ein VBA Macro, dass mir automatisch und sofort nach einer Eingabe folgendes macht:
In Tabelle 1 stehen in Spate C5:C100 Positionsnamen (Achtung es kann auch sein, dass in Zelle C5, C6 was steht und dann in C7 nichts aber dann in C8 wieder was steht) also mit Lücken!<...
21.03.2013 20:41:03
Thread-ID: 1305386
2 Beiträge
VBA wenn ausgelöst dann Zeichen in richtiger Zeile
Ronny
Hallo,
erstmal vielen Dank, dass es dieses Forum gibt. Es hat mir schon viel geholfen! Super macht Ihr das. Leider habe ich bei folgendem Problem keine Lösung gefunden:
Ich habe eine Excel Tabelle mit einem Tabellenblatt "Artikel" und einem Blatt "Kaufvertrag"
Im Blatt Artikel habe ich...
27.05.2014 14:36:32
Thread-ID: 1363669
3 Beiträge
VBA Wenn dann Zelle 5x kopieren in nächste Leere
Max

Hallo *,
ich würde mich freuen, wenn ihr mir weiterhelfen könnt.
Wenn in Zelle A1 beispielsweise etwas steht, dann würde ich gerne die Zellen A1,B1,D1,E1 und G1 auf ein neues Tabellenblatt kopieren. Aber nicht nur einmal, sondern 5x untereeinander.
In Zeile 2 meiner Tabelle steht na...
29.07.2014 08:57:02
Thread-ID: 1372823
2 Beiträge
Wenn Zeile identisch dann kopieren
Dominik

Hallo,
ich habe folgendes Problem und brauche hierfür ein Makro:
Werte Daten
a 1
a 2
b 3
b 4
c 5
d 6
e 7
e 8
Ich möchte, dass die Tabelle nach dem Makro wie folgt aussieht:
Werte Daten Daten2
a 1 2
b 3 4
c 5
d 6
e 7 8
We...
30.07.2015 12:44:00
Thread-ID: 1439387
2 Beiträge
Anzeige
Wenn Wert dann Zelle kopieren
anna

Hallo zusammen,
ich hab eine kurze Frage. Mein Makro klappt nur ab und an aber nicht durchgängig.
Eigentlich soll es so funktionieren, dass wenn in einer Zelle in der Spalte k "erledigt" steht die ganze Zeile in das Tabellenblatt "Erledigt" kopiert wird. Zuvor würde ich gern einen besti...
04.08.2015 13:55:17
Thread-ID: 1440264
4 Beiträge
Anzeige
Wenn Zellinhaltn x dann kopieren/einfügen
Peter

Hallo zusammen
Suche einen VBA-Code mit folgender Funktion:
Wenn in einer Zelle der Spalte H ein X geschrieben wird, dann soll der Zellinhalt der Spalte H, gleicher Zeile, in Spalte L, gleicher Zeile geschrieben werden.
Danke jetzt schon für jede Hilfe.
Viele Grüsse,
Peter
24.11.2015 15:18:40
Thread-ID: 1460402
6 Beiträge
Wenn Zellinhaltn x dann kopieren/einfügen
Peter

Hallo zusammen
Suche einen VBA-Code mit folgender Funktion:
Wenn in einer Zelle der Spalte H ein X geschrieben wird, dann soll der Zellinhalt der Spalte H, gleicher Zeile, in Spalte L, gleicher Zeile geschrieben werden.
Danke jetzt schon für jede Hilfe.
Viele Grüsse,
Peter
24.11.2015 15:45:56
Thread-ID: 1460416
4 Beiträge
wenn in Zeile 1 x dann bestimmte Spalten kopieren
Metin

Hallo,
leider wurde ich in unserer Firma auserkoren aus Datenschutzgründen eine Lösung für folgendes Problem zu finden. Jedoch sind meine VBA Erfahrung mehr als nur begrenzt. Vielleicht kann mir einer von euch helfen.
Das Makro müsste so aufgebaut sein, das beim speichern der Quelldatei...
25.03.2016 09:33:15
Thread-ID: 1484246
8 Beiträge
Wenn in Zelle "a" dann zellen Kopieren
Danny

Hallo liebe Gemeinde,
leider habe ich mal wieder ein Problem.
Ich habe 3 Tabellen mit Werten.
Wenn in einer der beiden in der Spalte 10 ein Häckchen ist. ("a" / Schrift Windings)
dann sollen die Zellen 1 bis 11 in das 3te Tabellenblatt ab Zeile 6 kopiert werden.
Da es mehre...
25.05.2016 20:08:54
Thread-ID: 1495350
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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