VBA-Daten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub kopieren() Dim i, j, k, l, spalten As Integer spalte = Sheets(y).UsedRange.Rows.Count i = 1 j = 1 k = 1 l = 1 For j = 1 To spalte For i = 1 To Sheets(y).Cells(i, 1).End(xlDown) Sheets(x).Cells(k, l) = Sheets(y).Cells(i, j) <> "" k = k + 1 If k > 65300 Then 'Letze Zeile ist allerdings 65536 k = 1 l = l + 1 End If Next Next End Sub

Hallo Volker!
Leider ist es erst Spät was geworden.
Irgend was funzt nicht.
Hier habe ich mal meinen COde:
Sheets("quittung").Select 'quittung ist X
Range("A2").Select 'Zellinhalt wird copy
Selection.Copy
Sheets("USST_1_4_Jahr").Select
Range("A1").Select
While ActiveCell.Value ""
'erste freie zelle in (Y)wird gesucht und
' wird mit zahl aus (X)gefüllt
ActiveCell.Offset(1, 0).Select
Wend
ActiveSheet.Paste
Irgend wo unten (65500)wird dann noch meine Auswertung plaziert.Deswegen die "komische" Zellnummer. Dann muss der Schritt folgen 3 SPalten (bei zelle 65500)nach rechts und in der Spalte bis ganz nach oben um von oben wieder mit dem einfügen von daten, wenn sie dann anfallen, fort zu fahren.
Ich hoffe ich habe ein wenig Licht in das Dunkel meiner FRage gebracht!
Hattest du diesen Vorgang in deinem Code?
Ich habe das nicht erkannt!
Trotzdem erstmal danke.
M.f.G
Andreas

Sub kopieren() Dim i, j, k, l, spalten As Integer spalten = Sheets("quittung").UsedRange.Columns.Count 'Anzahl Spalten i = 1 'Zähler für Zeilen in "quittung" j = 1 'Zähler für Spalten in "quittung" k = 1 'Zähler für Zeilen in "USST_1_4_Jahr" l = 1 'Zähler für Spalten in "USST_1_4_Jahr" For j = 1 To spalten 'von Spalte 1 bis letzte Spalte For i = 1 To Sheets("quittung").Cells(1, j).End(xlDown) 'bis letzte Zeile in Spalte j Sheets("USST_1_4_Jahr").Cells(k, l) = Sheets(y).Cells(i, j) k = k + 1 'nächste Zeile von "USST_1_4_Jahr" If k > 65300 Then 'wenn Zeile 65300 erreicht, dann k = 1 '1.Zelle in......... l = l + 1 'nächster Spalte End If Next Next End Sub

HAllo Volker,
danke für deine Antwort.
Funzt leider immmer noch nicht.
HAbe jetzt folgenden COde:


Sub kopieren()
Dim i, j, k, l, spalten As Integer
spalten = Sheets("quittung").UsedRange.Columns.Count 'Anzahl Spalten
i = 1   'Zähler für Zeilen in "quittung"
j = 1   'Zähler für Spalten in "quittung"
k = 1   'Zähler für Zeilen in "USST_1_4_Jahr"
l = 1   'Zähler für Spalten in "USST_1_4_Jahr"
For j = 1 To spalten 'von Spalte 1 bis letzte Spalte
'For i = 1 To Sheets("quittung").Select 'Cells(1, j).End(xlDown) 'bis letzte Zeile in Spalte j
Sheets("quittung").Select
Range("A1").Select 'bereich a1 aussuchen
Selection.Copy 'den ausgesuchten bereich copy
Sheets("USST_1_4_Jahr").Select 'blatt "u" suchen
'[A1] .Select
Range("A1").Select 'bereich a1 aussuchen
While ActiveCell.Value <> "" 'die gerade aktivierte zelle überprüfen ob sie leer ist
ActiveCell.Offset(1, 0).Select 'wenn sie leer ist wert einschreiben, wenn sie nicht leer ist eine zelle nach unten springen
Wend 'schleifenende
ActiveSheet.Paste
'an dieser Stelle sollte er (der code)inhalt von a1 (quittung)in spalte 1 von USST_1_4_Jahr  in der 1. freien zelle eintragen, wenn die aber voll oder zelle 65300 ist, soll er 3 spalten nach rechts und dann nach oben und oben wieder den wert der dann eventuell nicht in die 1 spalte von USST_1_4Jahr gepasst hatte eintragen.
Kannst du bitte noch mal ein BLick darauf werfen?
'Sheets("USST_1_4_Jahr").Cells(k, l) = Sheets(y).Cells(i, j)
k = k + 1   'nächste Zeile von "USST_1_4_Jahr"
If k > 65300 Then 'wenn Zeile 65300 erreicht, dann
k = 1   '1.Zelle in.........
l = l + 3   'nächster 3 Spalte
End If
Next
'Next
End Sub

Vielen Dank erst mal.
Mit freundlichen Grüßen
Andreas

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread