Sheet ansprechen mit einer Funktion
09.08.2018 20:43:18
Friedrich
habe jetzt lange probiert aber einfach keine Lösung gefunden.
Möchte gerne die Berechnungen der beiden Variablen "anzahlzeilen" und "anzahlleerezeilen" in dem jeweils aktiven Tabellenblatt (t) ausführen lassen. Leider habe ich keine Ahnung wie ich das hin bekommen. Den Befehl Sheets(t).Select oder .Activate will ich nicht benutzen.
Gibt es noch eine andere Möglichkeit?
Vielen Dank vorab! :)
Modul
Option Explicit
Sub datenkopieren()
Dim spaltenfuellen As Long, anzahlleerezeilen As Long, anzahlzeilen As Long
Dim tabelle As Worksheet
Dim t As Integer
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
t = 0
For Each tabelle In ActiveWorkbook.Sheets
t = t + 1
If tabelle.Name "Übersicht" Then
If tabelle.Name "COTdaten" Then
anzahlzeilen = WorksheetFunction.CountA(Range("A4:A" & Cells(Rows.Count, 1).End(xlUp). _
_
_
Row))
anzahlleerezeilen = WorksheetFunction.CountBlank(Range("C4:C" & Cells(Rows.Count, 3). _
End(xlUp).Row))
If anzahlleerezeilen 0 Then
With Sheets(t)
.Range("C" & 4 + anzahlleerezeilen).AutoFill Destination:=Range("C4" & ":C" & 4 _
_
_
+ anzahlleerezeilen), Type:=xlFillDefault
.Range("F" & 4 + anzahlleerezeilen & ":L" & 4 + anzahlleerezeilen).AutoFill _
Destination:=Range("F4" & ":L" & 4 + anzahlleerezeilen), Type:=xlFillDefault
.Range("O" & 4 + anzahlleerezeilen).AutoFill Destination:=Range("O4" & ":O" & 4 _
_
_
+ anzahlleerezeilen), Type:=xlFillDefault
.Range("R" & 4 + anzahlleerezeilen).AutoFill Destination:=Range("R4" & ":R" & 4 _
_
_
+ anzahlleerezeilen), Type:=xlFillDefault
.Range("U" & 4 + anzahlleerezeilen).AutoFill Destination:=Range("U4" & ":U" & 4 _
_
_
+ anzahlleerezeilen), Type:=xlFillDefault
.Range("X" & 4 + anzahlleerezeilen).AutoFill Destination:=Range("X4" & ":X" & 4 _
_
_
+ anzahlleerezeilen), Type:=xlFillDefault
.Range("AA" & 4 + anzahlleerezeilen).AutoFill Destination:=Range("AA4" & ":AA" & _
_
_
4 + anzahlleerezeilen), Type:=xlFillDefault
End With
End If
End If
End If
Next tabelle
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub