Zahlenfolge suchen und in neuem Blatt einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle1") 'Quell-Blatt Dim WsZ As Worksheet, a, i&, j& 'Ziel-Blatt Application.ScreenUpdating = False Set WsZ = Wb.Worksheets.Add(after:=Wb.Worksheets(Wb.Worksheets.Count)) a = WsQ.UsedRange For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) If IsNumeric(a(i, j)) Then If Len(a(i, j)) = 8 Then With WsZ .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0) = a(i, j) End With End If End If Next j Next i End Sub

Sub aaa() Dim objDic As Object, rngC As Range Set objDic = CreateObject("scripting.dictionary") For Each rngC In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers) If Len(rngC) = 8 Then objDic(rngC.Value) = 0 Next Worksheets.Add.Cells(1, 1).Resize(objDic.Count) = Application.Transpose(objDic.keys) End Sub

Hallo,
den unten folgenden Code musst du anpassen und
solltest du fragen dazu haben, wie man den Code einfügt und anpasst,
dann gebe einfach bescheid.

Option Explicit
Sub a()
Dim rng As Range
Dim ws As Worksheet
Dim newWS As Worksheet
Dim lRow As Long
Dim c
Set newWS = Nothing 'wo es hin soll
Set ws = ThisWorkbook.Sheets(1)
With ws
'//der benutzte Bereich des Blattes
Set rng = ws.UsedRange
'//Für jede Zelle in diesem Bereich
For Each c In rng
'//Wenn sie numerisch ist dann...
If IsNumeric(c.Value) Then
'//Wenn ihre länge gleich 8 ist dann...
If Len(c.Value) = 8 Then
'//newWS ist das blatt + mappe wo
'//die nummer rein soll
'//lRow die letzte Zelle der angegebenen Spalte
'//Cells(lRow, 1) ist die letzte zelle in spalte A
'//dort kommt der wert rein
With newWS
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1).Value = c
End With
End If
End If
Next c
End With
End Sub

Und Leute, warum einfach wenns auch kompliziert geht oder...
Eine geschachtelte schleife um die Zellen durchzugehen wenn man
sich die Usedrange geholt hat, macht einfach keinen sinn.
Warum eigentlich ein Dictionary?
Ein simples "For Each" reicht doch und verstehen tut es
dann auch jeder Anfänger...

Max,
... na offenbar nicht:
Eine geschachtelte schleife um die Zellen durchzugehen macht einfach keinen sinn
Nehme an, das galt meinem Code. Dir ist aufgefallen, dass ich die UsedRange in ein Array einlese? Wie gehst DU denn ein Array anders durch, als mit einer geschachtelten Schleife? Mit For Each?... vermutlich eine Deiner "Excel Advanced"-Expertenkenntnisse. Habe mich deshalb für's Array entschieden, weil der UsedRange ja doch beträchlich groß sein könnte.
Warum eigentlich ein Dictionary?
Nehme an, das galt Rudis Code. Der (wie immer) sehr clever ist, und das Dictionary dazu nutzt, um die ausgelesenen 8-stelligen-Nummern nur einmal zu übernehmen - könnte ja durchaus sein, dass es da Doppelungen gibt. Außerdem ist er noch so clever den UsedRange einzuschränken auf Konstanten-Zellen.
Ein simples "For Each" reicht doch
Möglich, aber das bedeutet nicht, dass andere Varianten keinen Sinn machen - Denk mal drüber nach.
Schönen Nachmittag!
Michael

Sub aaa() Dim objDic As Object, vArr Dim i As Long, j As Long, vTest t = Timer Set objDic = CreateObject("scripting.dictionary") vArr = Sheets(1).UsedRange.Value For i = 1 To UBound(vArr) For j = 1 To UBound(vArr, 2) vTest = vArr(i, j) If IsNumeric(vTest) And Len(vTest) = 8 Then objDic(vTest) = 0 Next j Next i Worksheets(2).Cells(1, 1).Resize(objDic.Count) = Application.Transpose(objDic.keys) End Sub

Sub test() Dim c As Range Dim ArtNr As Long Dim txt As String Dim Erg As String Dim arr Erg = "Artikelnummern" For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1) ArtNr = c.Value If ArtNr >= 10 ^ 7 Then If ArtNr

using System.Collections.Generic; using System.Diagnostics; using System.IO; namespace ConsoleApplication3 { class Program { const string PATH = @"test.csv"; static void Main(string[] args) { using (StreamReader r = new StreamReader(PATH)) { string line; List list = new List(); Stopwatch sp = Stopwatch.StartNew(); while ((line = r.ReadLine()) != null) { string[] s = line.Split(';'); foreach (string st in s) { int i; if (int.TryParse(st, out i) && st.Length == 2) { list.Add(st); } } } sp.Stop(); System.Console.WriteLine(sp.ElapsedMilliseconds); } } } }

Beliebteste Forumthreads (12 Monate)

Zahlenfolge suchen und in neuem Blatt einfügen

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlenfolge suchen und in neuem Blatt einfügen

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread