Nach unten kopieren

oraculix · 2022-04-02T00:46:09+00:00

Hallo Alle! https://www.herber.de/bbs/user/152183.xlsm In meiner Tabelle Habe ich texte und zahlen in einer Wurst aus dem Internet in die Zeile E1 kopiert. Ich möchte jetzt den Wert von E1 nach D2 Kopieren und der Text soll untereinander kopiert nach D2. Beispiel: Bryan Adams Everything I Do aus Robin Hood 1991-ab hier soll eine neue Zeile beginnen. Also nach der Zahl ab wann der Film in die Kinos kahm. Folgenden Code habe ich bis jetzt entwickelt aber ich schaffe die Trennung nicht. Bitte um Hilfe! Danke Private Sub CommandButton1_Click() Range("E1:E1").Copy Range("D2").PasteSpecial Paste:=xlPasteValues, Transpose:=True End Sub Gruß Oraculix

Hallo Oraculix
Habe es mal Aufgezeichnet
Du musst zuerst Text in Spalten setzen und nachher Transponieren. Du darfst aber in der Zeile 2 ab E2 nichts schreiben!

Sub woe() Range("E1").Select Selection.TextToColumns Destination:=Range("E2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _ 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _ , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _ Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array( _ 25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), _ Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array( _ 38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), _ Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), Array(49, 1), Array(50, 1), Array( _ 51, 1), Array(52, 1), Array(53, 1), Array(54, 1)), TrailingMinusNumbers:=True Range("E2").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Range("D2").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Range("E2").Select Range(Selection, Selection.End(xlToRight)).Select Application.CutCopyMode = False Selection.ClearContents Range("D1").Select End Sub

Gruss werni

Hi, noch eine Lösung; zunächst:
mittels VBA-Macro werden alle vierstelligen Jahreszahlen aus E1 in die Spalte A, beginnend in A2, extrahiert:


Private Sub Z4stellig()
Dim lng As Long
Dim ze As Long
Dim zahl As Variant
Application.Volatile
ze = 2
strText = Range("E1")
If strText Like "*####*" Then
For lng = 1 To Len(strText) - 3
If Mid(strText, lng, 4) Like "####" Then
zahl = CInt(Mid(strText, lng, 4))
Cells(ze, 1) = zahl
ze = ze + 1
End If
Next lng
End If
End Sub

Dazu diese Formeln:
in B2: =FINDEN(A2;$E$1;1)
in C2: =TEIL($E$1;1;B2+4)
in B3: =FINDEN(A3;$E$1;B2+1) 'runterkopieren
in C3: =TEIL($E$1;B2+5;B3-B2) 'runterkopieren
Ergebnisse in Spalte C:
Phil Harris, Sebastian Cabot The Bare Neccessities aus Das Dschungelbuch 1967
Bryan Adams Everything I Do aus Robin Hood 1991
Aerosmith I Dont Want To Miss A Thing aus Armageddon 1998
Simple Minds Dont You Forget About Me aus Breakfast Club 1985
Survivor Eye Of The Tiger aus Rocky III 1982
Roxette It Must Have Been Love aus Pretty Woman 1990
Ray Parker Jr Ghostbusters aus Ghostbusters 1984
Elton Johns, Tim Rice Can You Feel The Love Tonight aus König der Löwen1994
Kristen Anderson-Lopez, Robert Lopez, Idina Menzel Let It go aus Frozen 2013
usw...
Gruß
Jochen

Forumthread: Nach unten kopieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Nach unten kopieren

Forumthread: Nach unten kopieren

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread