Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1600to1604
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

@Sepp

@Sepp
17.01.2018 18:58:38
Johann
Hallo Sepp,
Vielen Dank nochmals für deine Hilfe,
ich habe noch eine Frage zu diesem Code
Sub Namen_einlesen(TargetSheet As Worksheet)
Dim lngLast  As Long
With Sheets("Daten")
lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
TargetSheet.Range("A2:D99") = ""
TargetSheet.Range("A2:D" & lngLast) = .Range("A2:D" & lngLast).Value
End With
Call mitarbeiterTage(TargetSheet)
End Sub

Im jeweiligen Monat in der Zeile A100 versuche ich die Anzahl der MA
zu ermitteln.
=Anzahl2(A2:A99)
Als Ergebnis bekomme ich 98
Tatsächlich sind es jedoch 33
Wenn ich nun diesen Code so erweitere bekomme ich eine Fehlermeldung.

Sub Namen_einlesen(TargetSheet As Worksheet)
Dim lngLast  As Long
With Sheets("Daten")
lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
TargetSheet.Range("A2:D99") = ""
TargetSheet.Range("A2:D" & lngLast) = .Range("A2:D" & lngLast).Value
End With
For s = 2 To 99
If Cells(1, s).Value 

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

Betreff
Datum
Anwender
Anzeige
AW: @Sepp
17.01.2018 19:24:42
Sepp
Hallo Johannes,
Sub Namen_einlesen(TargetSheet As Worksheet)
Dim lngLast As Long

With Sheets("Daten")
  lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
  TargetSheet.Range("A2:D99").ClearContents
  TargetSheet.Range("A2:D" & lngLast) = .Range("A2:D" & lngLast).Value
End With

Call mitarbeiterTage(TargetSheet)
End Sub

sollte das Problem lösen.
Gruß Sepp

Anzeige
AW: @Sepp
17.01.2018 19:57:34
Johann
Vielen Dank :)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige