Prüfung ob in Spalte *.xlsm vorhanden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
ja Anzahl geht =ZÄHLENWENN(A:A;"*.xlsm")
verschieben ist VBA.
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

Sub moveFiles() Dim rng As Range Const PATH_A As String = "Alter Pfad mit \ am Ende" Const PATH_B As String = "Neuer Pfad mit \ am Ende" With Sheets("Tabelle1") 'Tabellenname anpassen! For Each rng In .Range("C2:C" & Application.Max(2, .Cells(Rows.Count, 3).End(xlUp).Row)) If LCase$(rng.Value) Like "*.xlsm" Then If Dir(PATH_A & rng.Text, vbNormal) <> "" Then Name PATH_A & rng.Text As PATH_B & rng.Text End If End If Next End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub moveFiles() Dim rng As Range, strPath_a As String, strPath_b As String strPath_a = wksH.Range("x2") & "\" & .Range("A3") & "\" strPath_b = wksH.Range("x2") & "\" & .Range("A4") & "\" With Sheets("Tabelle1") 'Tabellenname anpassen! For Each rng In .Range("C2:C" & Application.Max(2, .Cells(Rows.Count, 3).End(xlUp).Row)) If LCase$(rng.Value) Like "*.xlsm" Then If Dir(strPath_a & rng.Text, vbNormal) <> "" Then Name strPath_a & rng.Text As strPath_b & rng.Text End If End If Next End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo Sepp,
habe folgenden Code eingefügt:
<pre>Sub moveFiles2()
Dim wksH As Worksheet
Dim rng As Range, strPath_a As String, strPath_b As String
Set wksH = Worksheets("Hilfstabelle")
With wksH
strPath_a = .Range("x2") & "\" & .Range("A3") & "\"
strPath_b = .Range("x2") & "\" & .Range("A4") & "\"
End With
With Sheets("Hilfstabelle") 'Tabellenname anpassen!
For Each rng In .Range("C2:C" & Application.Max(2, .Cells(Rows.Count, 3).End(xlUp).Row))
If LCase$(rng.Value) Like "*.xlsm" Then
If Dir(strPath_a & rng.Text, vbNormal) <> "" Then
Name strPath_a & rng.Text As strPath_b & rng.Text
End If
End If
Next
End With
End Sub</pre>
Fehlermeldung: Laufzeitfehler 75 Fehler beim Zugriff auf Pfad/Datei
Prüfung debug.print strPath_a und strPath_b ergeben den richtigen Wert.
Was ist hier bitte falsch?
Gruss
Peter

Beliebteste Forumthreads (12 Monate)

Prüfung ob in Spalte *.xlsm vorhanden

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	E	X	C	E	L
1	LG - Sepp
2
3

	E	X	C	E	L
1	LG - Sepp
2
3

	E	X	C	E	L
1	LG - Sepp
2
3

Prüfung ob in Spalte *.xlsm vorhanden

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread