Hallo Zusammen,
ich bin neu hier und Anfänger. Wäre sehr dankbar, wenn ich hier Hilfe bekommen würde. Ich habe eine Datei mit über 16 Tausend Daten (Zeilen und Spalten).
Nun mache ich gerade eine Fehleranalyse und will jede xte z.B. jede 5. Zeile in ein anderes Tabellenblatt reinkopieren. Oder 20% von 16 Tausend Zeilen (Zufallsauswahl) auslesen und in ein anderes Tabelettenblatt reinkopieren.
Gibst dafür ein VBA-Code oder irgendeine Lösung??
Vielen Dank schon mal 
.
Gruß
Mia
Nun mache ich gerade eine Fehleranalyse und will jede xte z.B.
jede 5. Zeile in ein anderes Tabellenblatt reinkopieren. Oder
20% von 16 Tausend Zeilen (Zufallsauswahl) auslesen und in ein
anderes Tabelettenblatt reinkopieren.
Hallo Mia,
in ein Standardmodul:
Option Explicit
'
Sub Fuenfte()
Dim Zei1 As Long, Zei2 As Long, wks2 As Worksheet
Set wks2 = Worksheets("Tabelle2")
Application.ScreenUpdating = False
wks2.UsedRange.ClearContents
With Worksheets("Tabelle1")
For Zei1 = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 5
Zei2 = Zei2 + 1
.Rows(Zei1).Copy Destination:=wks2.Cells(Zei2, 1)
Next Zei1
End With
Application.ScreenUpdating = True
End Sub
'
Sub ZwanzigProzent()
Dim Zei1 As Long, Zei2 As Long, wks2 As Worksheet, colC As New Collection, Anz As Long
Dim Ges As Long, C As Long, Zahl As Long
Application.ScreenUpdating = False
On Error Resume Next
Set wks2 = Worksheets("Tabelle2")
wks2.UsedRange.ClearContents
With Worksheets("Tabelle1")
Ges = .Cells(Rows.Count, 1).End(xlUp).Row
Anz = Int(Ges / 5)
While colC.Count
Gruß
Reinhard