Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Typen unverträglich

Typen unverträglich
22.01.2018 05:35:10
Johann
Guten Morgen Liebe Forumgemeinde,
kann mir einer sagen was ich bei diesem Code Falsch mache?
Ich möchte Prüfen ob die Zellen Leer sind bevor der Code das
macht was er machen soll :)
Sub Namen_einlesen(TargetSheet As Worksheet)
If Range("E2:AI99").Value > 0 Then Exit 


Sub 'Typen unverträglich
Dim lngLast As Long
With Sheets("Daten")
lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
TargetSheet.Range("A2:D99").ClearContents
.Range("A2:D" & lngLast).Copy
TargetSheet.Range("A2").PasteSpecial xlPasteValues
TargetSheet.Range("A2").PasteSpecial xlPasteFormats
TargetSheet.Range("A2").PasteSpecial xlPasteComments
Application.CutCopyMode = False
End With
Call mitarbeiterTage(TargetSheet)
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Typen unverträglich
22.01.2018 05:46:32
Hajo_Zi
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
machen in Zeile 3 vor Sub ein ' 

Du kannst nur eine Zelle prüfen auf >0

Ansonsten ist der Code in Ordnung.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Typen unverträglich
22.01.2018 06:01:08
Werner
Hallo Johann,
du kannst nicht einen Bereich auf .Value prüfen, wenn dann nur einzelne Zellen. Zum Prüfen ob dein Bereich komplett leer ist: 
Public Sub aaa()
If WorksheetFunction.CountA(Range("E2:AI99")) = 0 Then
MsgBox "Bereich ist leer"
Else
MsgBox "Bereich ist nicht komplett leer"
End If
End Sub
Gruß Werner
AW: Typen unverträglich
22.01.2018 06:34:10
Johann
Vielen Dank euch beiden!
Top Hilfe Werner, freut mich sehr.
Hab den Code mit deiner Hilfe so zusammengeschnippselt und läuft :)
Option Explicit
Sub Namen_einlesen(TargetSheet As Worksheet)
If WorksheetFunction.CountA(Range("E2:AI99")) = 0 Then
Dim lngLast As Long
With Sheets("Daten")
lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
TargetSheet.Range("A2:D99").ClearContents
.Range("A2:D" & lngLast).Copy
TargetSheet.Range("A2").PasteSpecial xlPasteValues
TargetSheet.Range("A2").PasteSpecial xlPasteFormats
TargetSheet.Range("A2").PasteSpecial xlPasteComments
Application.CutCopyMode = False
End With
Call mitarbeiterTage(TargetSheet)
Else
Exit Sub
End If
End Sub

Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
22.01.2018 06:47:56
Werner
Kleiner Hinweis
22.01.2018 10:09:14
Robert
Hallo Johann,
die Zeilen
Else
Exit Sub
kannst Du Dir aber auch noch sparen. Danach ist das Makro sowieso zu Ende, es passiert nichts mehr.
Gruß
Robert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige