 Menü
 An- und Abmelden
 Partner / Links
|
Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.
Nachrichten - pi_a
Seiten: [1]
1
« am: Mai 25, 2017, 09:35:28 Vormittag »
Hallo  erneut komme ich leider nicht weiter! Ich soll aus einer Kommentarspalte alle Mailadressen und Telefonnummern filtern. Nun finde ich mit folgender Funktion nur die erste Mail Adresse einer Zelle, ich brauche aber alle. =MID(R2;MAX((MID(LEFT(R2;FIND(" ";R2;FIND("@";R2))-1);COLUMN(1:1);1)=" ")*COLUMN(1:1))+1;FIND(" ";R2;FIND("@";R2))-MAX((MID(LEFT(R2;FIND(" ";R2;FIND("@";R2))-1);COLUMN(1:1);1)=" ")*COLUMN(1:1))-1) Kann jemand helfen? Dankeschön LG pi_a
2
« am: Mai 18, 2017, 09:08:12 Vormittag »
Guten Morgen! Danke für die Antwort! Also mich würde so ein Code schon sehr interessieren, muss mich mal, wenn ich Zeit habe in den Aufbau etc einlesen, weil damit bekommt man bestimmt schnell, schöne Lösungen hin Ich hänge hier mal eine Beispiel an wie die Datei gerade aussieht und wie sie danach aussehen sollte (Spalten N bis GO von zwei gleichen IDs sollten in eine Zeile zusammengefasst bzw. alles zusammengefasst sein, da manchmal in allen Spalten etwas steht. Danach die Duplikate gelöscht werden. ) Power Query habe ich leider noch nie benutzt. LG pi_a
3
« am: Mai 17, 2017, 13:47:25 Nachmittag »
Ich schaue es mir auf jeden Fall nochmal genauer an, danke dir !
Noch finde ich nämlich keine andere Lösung ...
Falls jd Ideen zum Code hat, würde ich mich freuen!
4
« am: Mai 16, 2017, 21:18:44 Nachmittag »
In jeder Zeile? Ich habe allerdings 40.000  das wäre dann doch zu aufwendig Kann man aus dem Code nicht etwas basteln ? Ich weiß leider auch gar nicht ob irgendwo noch Angaben fehlen im Code ... LG und danke !
5
« am: Mai 16, 2017, 16:05:36 Nachmittag »
Hallo DL,
habe ich versucht, aber das sah bei mir nicht sehr übersichtlich aus. Ich habe ja auch knapp 200 Spalten, das sah so aus als ob ich die dann alle ankreuzen muss?
Ich kenne mich damit auch nicht besonders aus.
LG
6
« am: Mai 16, 2017, 15:49:43 Nachmittag »
Hallo ich möchte einen ziemlich großen Datensatz mit 40 Tsd Zeilen vereinfachen. Und zwar möchte ich Duplikate in meinen Daten anhand der ersten ID-Spalte identifizieren und dann diese Zeilen in eine Zeile zusammenfassen. Eigentlich muss auch nur aufsummiert werden (Zahlen) was in den Spalten N-GO steht und daraus sollte dann eine Zeile entstehen. Ich habe bereits einen Code gefunden der so etwas leisten kann, aber da ich Anfängerin bin komme ich nicht so ganz mit der Struktur klar, ich hoffe jemand kann mir helfen! Sub test()
Dim i As Long 'Zeilenzähler
Dim x As Integer 'Zähler um Arr() zu erweitern
Dim flag As Boolean
Dim arr As Variant
Dim arrIndex As Integer
With Sheets("Data_Sum")
arr = Application.Transpose(Range(Financial_id.Cells(1, 1), .Cells(2, 13)))
x = 2
For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
flag = False
For arrIndex = LBound(arr, 2) To UBound(arr, 2)
If .Cells(i, 1) = arr(1, arrIndex) Then
If InStr(1, arr(13, arrIndex), .Cells(i, 13)) = 0 Then _
arr(13, arrIndex) = arr(4, arrIndex) & "-" & .Cells(i, 13)
'dann Prüfschleife(Arr) verlassen
flag = True
Exit For
Else
flag = False
End If
Next
If Not flag Then
x = x + 1
ReDim Preserve arr(1 To 13, 1 To x)
arr(1, x) = .Cells(i, 1)
arr(2, x) = .Cells(i, 2)
arr(3, x) = .Cells(i, 3)
arr(4, x) = .Cells(i, 4)
arr(5, x) = .Cells(i, 5)
arr(6, x) = .Cells(i, 6)
arr(7, x) = .Cells(i, 7)
arr(8, x) = .Cells(i, 8)
arr(9, x) = .Cells(i, 9)
arr(10, x) = .Cells(i, 10)
arr(11, x) = .Cells(i, 11)
arr(12, x) = .Cells(i, 12)
arr(13, x) = .Cells(i, 13)
End If
Next
End With
End Sub
Liebe Grüße pi_a
Seiten: [1]
|
Beiträge anzeigen