Anzeige
Archiv - Navigation
1276to1280
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
Inhaltsverzeichnis

VBA - letzte benutzte Zelle in ausgesuchten Spalte

VBA - letzte benutzte Zelle in ausgesuchten Spalte
WalterK
Hallo,
Im folgenden Code wird die Zeilennummer der letzten gefüllten Zelle in Spalte B zum kopieren verwendet.
Was muss ich ändern, wenn ich zum kopieren die Max-Zeilennummer der letzten gefüllten Zelle in den Spalten B,D,G,H,I,J,K benötige.
Sub BereichKopieren2()
Dim LeZeBDGHIJK As Long
LeZeBDGHIJK = Cells(Rows.Count, 2).End(xlUp).Row
Range("B4:K" & LeZeBDGHIJK).Copy Range("T1")
End Sub
Besten Dank für die Hilfe und Servus, Walter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA - letzte benutzte Zelle in ausgesuchten Spalte
23.08.2012 21:15:12
Josef

Hallo Walter,
Sub BereichKopieren2()
  Dim lngLast As Long
  Dim rng As Range
  
  For Each rng In Range("B:B,D:D,G:K").Columns
    lngLast = Application.Max(4, lngLast, Cells(Rows.Count, rng.Column).End(xlUp).Row)
  Next
  
  Range("B4:K" & lngLast).Copy Range("T1")
  
End Sub



« Gruß Sepp »

Anzeige
Besten Dank Sepp! Servus, Walter
23.08.2012 21:33:00
WalterK

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige