Spaltenende in anderem Tabellenblatt finden
14.11.2005 17:38:41
Tomy
ich habe da folgendes problem: ich bin auf dem einen tabellenblatt und möchte ein spaltenende einem anderen tabellenblatt suchen.
so hatte ich das gedacht:
Private Sub Monateverschieben_Click() (der ist in TB "Produktmix")
Worksheets("Bereinigung").Select
Dim startCell As Range, cell1 As Range, cell2 As Range
Dim rowNr&, colNr&
Worksheets("Bereinigung").Range("F5").Select
Set startCell = ActiveCell
rowNr = startCell.Row: colNr = startCell.Column
If IsEmpty(startCell) Then Exit Sub
For rowNr = startCell.Row To 35000
If IsEmpty(Cells(rowNr, colNr).Value) Then
Set cell2 = Cells(rowNr - 1, colNr)
Exit For
End If
Next rowNr
Worksheets("Produktmix").Select
Cells(2, 2) = rowNr
[hier gibt der mir aber das Spaltenende von Produktmix an]
End Sub
Wie oben schon geschrieben, bekomme ich aber vom falschen tabellenblatt das spaltenende bzw die zeilenzahl genannt. was nun?
ziel des ganzen ist eigentlich vorsortierte daten zu kopieren und ans ende, also dem spaltenende, einzufügen.
deshalb liegt der button auch in diesem tabellenblatt.
oder hat vielleicht einer ne bessere idee?
danke schonmal
gruss tomy