Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Suchen & Kopieren

Forumthread: VBA Suchen & Kopieren

VBA Suchen & Kopieren
16.11.2019 15:30:33
Cool
Hallo Experten,
ich suche eine VBA-Lösung für folgende Aufgabe:
In Spalte A stehen 1000 ganze Zahlen in unterschiedlicher Folge aus einem Zahlenbereich von 1 bis 70 z.B.
5
22
47
1
57
37
64
70
usw.
Die Spalte soll von 1 bis 70 durchsucht werden, alle gefundenen Zahlen sollen fortlaufend in Nachbarspalten
geschrieben werden. Also alle 1 in jeweils Spalte B, alle 2 in Spalte C usw.
Danke für die Lösungen im Voraus.
Cool
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Suchen & Kopieren
16.11.2019 15:39:18
Nepumuk
Hallo,
teste mal:
Public Sub Verteilen()
    Dim lngRow As Long
    For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(lngRow, Cells(lngRow, 1).Value + 1) = Cells(lngRow, 1).Value
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA Suchen & Kopieren
16.11.2019 16:36:38
Cool
Hallo Nepumuk,
den Luftsprung konntest du leider nicht sehen, aber es funktioniert
super. Danke für die schnelle Hilfe !!!
MfG
Cool
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige