Wert einer Variablen als Zeilennummer zuweisen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Gerd,
sorry für die dreimalige anfrage.
Bin noch Newbie in der Forumwelt.
Hier mein Code:


Private Sub Archivieren_Click()
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim cell As Range
i = 8
For Each cell In Sheets("Planung").Range("H8:H200")
If Not cell Is Nothing Then
b = cell.Row    'b wird der Zeilenwert("Planung") zugeweisen
MsgBox (b)
If cell.Value = "beendet" Then
' MsgBox (b)
a = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row     'a wird der Zeilenwert(" _
Archiv") der letzten Zeile zugewiesen
cell.EntireRow.Copy (Sheets("Archiv").Cells(a + 1, 1))      'Kopiert die gefundenen  _
Zeile von "Planung" zur ersten freien Zeile von "Archiv"
cell.EntireRow.Delete Shift:=xlUp                           'die kopierte Zeile wir aus  _
"Planung" gelöscht
b = b - 1
cell.Row = b
MsgBox (b) 'der Wert der gefundenen Zeile wird um eins zurückgesetzt
i = i + 1
End If
End If
Next cell
End Sub

Private Sub Archivieren_Click() Dim a As Long Dim cell As Range, rngArchiv As Range Application.ScreenUpdating = False For Each cell In Sheets("Planung").Range("H8:H200") If cell.Value = "beendet" Then a = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row cell.EntireRow.Copy (Sheets("Archiv").Cells(a + 1, 1)) If rngArchiv Is Nothing Then Set rngArchiv = cell Else Set rngArchiv = Union(rngArchiv, cell) End If End If Next cell If Not rngArchiv Is Nothing Then rngArchiv.EntireRow.Delete Application.ScreenUpdating = True End Sub

Private Sub Archivieren_Click() Dim i As Integer Dim a As Integer Dim b As Integer Dim cell As Range i = 8 For Each cell In Sheets("Planung").Range("H8:H200") If Not cell Is Nothing Then b = cell.Row 'b wird der Zeilenwert("Planung") zugeweisen MsgBox (b) If cell.Value = "beendet" Then ' MsgBox (b) a = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row 'a wird der Zeilenwert(" _ Archiv") der letzten Zeile zugewiesen cell.EntireRow.Copy (Sheets("Archiv").Cells(a + 1, 1)) 'Kopiert die gefundenen _ Zeile von "Planung" zur ersten freien Zeile von "Archiv" cell.EntireRow.Delete Shift:=xlUp 'die kopierte Zeile wir aus _ "Planung" gelöscht b = b - 1 cell.Row = b MsgBox (b) 'der Wert der gefundenen Zeile wird um eins zurückgesetzt i = i + 1 End If End If Next cell End Sub

Beliebteste Forumthreads (12 Monate)

Wert einer Variablen als Zeilennummer zuweisen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert einer Variablen als Zeilennummer zuweisen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread