AW: Wenn Zelle leer, dann Wert darüber
14.06.2006 15:05:21
fcs
Hallo Mathias,
eines der beiden Makros tut es. Das 1. Makro findet auch leere Zellen innerhalb einer ausgefüllten Spalte. Das 2. Makro ist schneller und findet die letzte mit Wert belegte Zeile in der Spalte.
Sub Makro1()
' Sucht in Spalte erste Zelle ohne Inhalt und überträgt Wert aus Zeile vorher nach Tabelle2
Dim wks1 As Worksheet, wks2 As Worksheet, Spalte As Integer, Zeile As Long
Set wks1 = ActiveWorkbook.Sheets("Tabelle1")
Set wks2 = ActiveWorkbook.Sheets("Tabelle2")
Spalte = 2 ' Spalte die im wks1 durchsucht werden soll
Zeile = 1
Do Until IsEmpty(wks1.Cells(Zeile + 1, Spalte))
Zeile = Zeile + 1
Loop
wks2.Range("A3").Value = wks1.Cells(Zeile, Spalte).Value
End Sub
Sub Makro2()
' Sucht letzten Wert in Spalte und überträgt Wert nach Tabelle2
Dim wks1 As Worksheet, wks2 As Worksheet, Spalte As Integer
Set wks1 = ActiveWorkbook.Sheets("Tabelle1")
Set wks2 = ActiveWorkbook.Sheets("Tabelle2")
Spalte = 2 ' Spalte die im wks1 durchsucht werden soll
wks2.Range("A3").Value = wks1.Cells(65536, Spalte).End(xlUp).Value
End Sub
Makro2 kann man auch zusammenfassen zu
Sub Makro2()
' Sucht letzten Wert in Spalte und überträgt Wert nach Tabelle2
ActiveWorkbook.Sheets("Tabelle2").Range("A3").Value = _
ActiveWorkbook.Sheets("Tabelle1").Cells(65536, 2).End(xlUp).Value
End Sub
mfg
Franz