AW: werte aus zellen in einem DEckblatt sammeln
16.08.2011 16:28:28
Mag
... mit Anzeigebereich löschen:
Option Explicit
Private Sub CommandButton1_Click()
Dim Tabelle As Object, Spalte As Long
'Anzeigebereich in Tabelle Deckblatt löschen
Spalte = LetzteSpalte(ThisWorkbook.Sheets("Deckblatt"), 1)
If Spalte > 0 Then
ThisWorkbook.Sheets("Deckblatt").Range(Cells(1, 1), Cells(2, Spalte)).Clear
End If
'Anzeigen der Zellwerte T10, T11 aus allen Tabellen (ohne Tabelle Deckblatt)
Spalte = 1
For Each Tabelle In ThisWorkbook.Sheets
If Tabelle.Name "Deckblatt" Then
ThisWorkbook.Sheets("Deckblatt").Cells(1, Spalte).Value = Tabelle.Range("A1").Value
ThisWorkbook.Sheets("Deckblatt").Cells(2, Spalte).Value = Tabelle.Range("A2").Value
Spalte = Spalte + 1
End If
Next Tabelle
End Sub
Public Function LetzteSpalte(Tabelle As Worksheet, zeile As Long) As Long
If Application.WorksheetFunction. _
CountA(Tabelle.Rows(zeile).EntireRow) = 0 Then
LetzteSpalte = 0
Else
If Tabelle.Cells(zeile, 256).End(xlToLeft).Column = 1 And _
Tabelle.Cells(zeile, 2) "" Then
LetzteSpalte = 256
Else
LetzteSpalte = Tabelle.Cells(zeile, 256).End(xlToLeft).Column
End If
End If
End Function