Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

in erste leere Zelle in Spalte eintragen

in erste leere Zelle in Spalte eintragen
03.01.2005 12:08:55
andi
Hi,
möchte die Werte in die erste freie Zelle ab 21 in Spalte B eintragen. Leider funktioniert dieses Makro nur zwei Mal:

Sub Eintragen()
Dim zelle As Range
Dim r As Long
Dim i As Long
On Error Resume Next
For Each zelle In Range("c9:c56")
r = zelle.Row
With Worksheets(zelle.Value)
i = 21
If (.Cells(i, 2)) = "" Then
.Cells(i, 2) = Cells(r, 11)
.Cells(i, 3) = Cells(r, 13)
.Cells(i, 4) = Cells(r, 15)
.Cells(i, 6) = Cells(r, 17)
.Cells(i, 7) = Cells(r, 22)
.Cells(i, 8) = Cells(r, 23)
Else
i = i + 1
.Cells(i, 2) = Cells(r, 11)
.Cells(i, 3) = Cells(r, 13)
.Cells(i, 4) = Cells(r, 15)
.Cells(i, 6) = Cells(r, 17)
.Cells(i, 7) = Cells(r, 22)
.Cells(i, 8) = Cells(r, 23)
End If
End With
Next
End Sub

Kann mir jemand helfen?
Gruß Andi

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in erste leere Zelle in Spalte eintragen
Uduuh

Sub Eintragen()
Dim zelle As Range
Dim r As Long
Dim i As Long
On Error Resume Next
For Each zelle In Range("c9:c56")
r = zelle.Row
With Worksheets(zelle.Value)
i = .cells(65536,2).end(xlup).row+1
.Cells(i, 2) = Cells(r, 11)
.Cells(i, 3) = Cells(r, 13)
.Cells(i, 4) = Cells(r, 15)
.Cells(i, 6) = Cells(r, 17)
.Cells(i, 7) = Cells(r, 22)
.Cells(i, 8) = Cells(r, 23)
End With
Next
End Sub

Gruß aus'm Pott
Udo
AW: in erste leere Zelle in Spalte eintragen
Galenzo
i=Cells(Rows.Count, 2).End(xlUp).Row + 1
danke...
03.01.2005 12:55:29
andi
für die schnelle Hilfe.
Gruß Andi
leider doch nicht...
03.01.2005 13:09:24
andi
Hi,
leider funktionieren beide Makros nicht. Jetzt wird gar nichts mehr eingetragen. Als Test habe ich mal i auf 21 gesetzt, dann funktioniert es, leider aber nur für eine Zeile...
Könnt ihr euch das noch mal anschauen?
Hier das Makro:

Sub Eintragen()
Dim zelle As Range
Dim r As Long
Dim i As Long
On Error Resume Next
For Each zelle In Range("c9:c56")
r = zelle.Row
With Worksheets(zelle.Value)
'i = Cells(Rows.Count, 2).End(xlUp).Row + 1
'i = .Cells(65536, 2).End(xlUp).Row + 1
i = 21
.Cells(i, 2) = Cells(r, 11)
.Cells(i, 3) = Cells(r, 13)
.Cells(i, 4) = Cells(r, 15)
.Cells(i, 6) = Cells(r, 17)
.Cells(i, 7) = Cells(r, 22)
.Cells(i, 8) = Cells(r, 23)
End With
Next
End Sub

Außerdem soll ja erst ab 21 gestartet werden...
Danke für jede Hilfe.
Gruß Andi
Anzeige
AW: leider doch nicht...
Uduuh
Hallo,
müsste so klappen. Ansonsten lad doch mal die Mappe hoch.

Sub Eintragen()
Dim zelle As Range
Dim r As Long
Dim i As Long
For Each zelle In Range("c9:c56")
r = zelle.Row
With Worksheets(zelle.Value)
i = .Cells(65536, 2).End(xlUp).Row + 1
if i<21 then i = 21
.Cells(i, 2) = Cells(r, 11)
.Cells(i, 3) = Cells(r, 13)
.Cells(i, 4) = Cells(r, 15)
.Cells(i, 6) = Cells(r, 17)
.Cells(i, 7) = Cells(r, 22)
.Cells(i, 8) = Cells(r, 23)
End With
Next
End Sub

Gruß aus'm Pott
Udo

Anzeige
AW: hier ist die Mappe...
Uduuh
Hallo,
was klappt nicht?

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige