Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

Hallo,

ich habe eine Excelmappe mit mehreren Tabellenblättern.

Diese haben natürlich Name wie z.b. "Personal", "Umsatz", "Gewinn"

Wenn ich in eine Zelle eine Formel benutze und auf ein anderes Blatt zugreife dann benötige ich ja den Name z.b. ='Personal'!A1

Ich möchte aber nicht den Namen benutzen sondern den im Hintergrund Festgelegten Namen "Tabelle3" so wie in VBA Tabelle3.Range("A1") statt Worksheet("Personal").Range("A1")

Ist das in den Formeln auch möglich??? Oder gibt es dazu eine VBA-Funktion die das ermöglicht?

Hallo,

ich habe seit längerem ein Problem mit einem leider nicht mehr funktionierende VBA Script, weil der IE die Internetseite nicht mehr lädt.

Ich habe nach den Anfängen der CoronaPandemie auf

https://interaktiv.morgenpost.de/corona-virus-karte-infektionen-deutschland-weltweit/

die Zahlen ausgelesen und in einer Datenbank gepflegt und diese ausgewertet und konnte eine 10Tages Prognose abgeben.

Die Daten habe ich per Script beschafft, welche die Internetseite im IE aufruft und die Daten dann aus dem HTML-Code liest.

Nur kann man die Seite im IE jetzt nicht mehr öffnen, es lädt nichts mehr.

Gibt es Einstellungen im IE die das beheben?

Gibt es einen anderen Browser der sich mit VBA versteht und steuern lässt?

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

Hallo, ich versuche seit einer ganzer weile den Highlight effect in js mit Leaflet und kriege es nicht hin.

Kennt sich jmd aus?
Kann ich z.B. auch Polygone einzeln den highlight effect geben ohne sie zu gruppieren?

Habe mega viel gegoogle, verstehe das meiste aber einfach nicht, und selsbt beim copy pasten gehts nicht.
Ich weiß nciht mal wo ich was ändern muss...

wie bekomme ich z.B. hier zu einem highliught effect beim hovern mit der maus

var group = new L.LayerGroup([
  new L.Polygon([
    [-50, -50], [50, -50], [50, -10], [-50, -10]
  ], {'label': 'Polygon 1', 'popup': 'Polygon 1'}),
  new L.Polygon([
    [-50, 10], [50, 10], [50, 50], [-50, 50]
  ], {'label': 'Polygon 2', 'popup': 'Polygon 2'})
]).addTo(map);

wenn ich https://embed.plnkr.co/plunk/LjzFbI hier raus das Beipsiel kopieren funktioniert es bei mir nicht.

Es gibt zu dem Thema in meinen Augen viel zu wenig ausführliche Hilfen.

Ich habe bereits eine Map, und darauf 10 Polygone, die aber auf nichts reagieren.

Hallo,

ist es möglich zwei Prozeduren hintereinander zu starten ohne eine aus der anderen zu starten?

Also wenn ich:

Sub Test()
...
Call test1
End Sub

Läuft test1 ja irgendwie innerhalb von Test()

Ich hätte aber gerne

Sub Test()
...
End Sub

Sub test1()
...
End Sub

Und das dann nacheinander ausgeführt wird.

Mein Problem ist nämlich, das ich ein ListBox_Click Event habe und in diesem Click die Größe der Listbox ändere.

Nur läuft der "Click" so lange, wie das ganze Event läuft, das heißt:
Ändere ich die Größe innerhalb des Click-Events, so ändert sich auch die Ausgewählte Zeile in der ListBox...

Meine Listbox ist am Anfang 20+ Zeilen lang. Wegen der Übersicht, muss diese nach der Auswahl des Werts auf 2 Zeilen verkleinert werden.
Doch dann wird automatisch immer die zweite Zeile ausgewählt nach dem verkleinern.
Das passiert aber nicht, wenn ich die Verkleinerung in einer extra Sub manuell im nachhinein ausführe.

Eine andere Lösung wäre wahrscheinlich auch

Sub Test()
Call ListBox_Click
Call ListBox_Klein
End Sub   

So laufen Click und Verkleinerung nacheinander...aber ich kann das Click ja schlecht vor dem "Click" auslösen xD

Hallo,

Ich habe eine Tabelle die als Datenbank dient und in Spalte A stehen einmalige Texte und in Spalte B Werte.

In einem anderen Tabellenblatt habe ich 5 Zeilen (A1:A5) die alle eine DropDownListe der Spalte A der obigen Tabelle enthalten.

Wie kann ich jetzt, wenn ich z.b - A, E und J auswähle, in Zelle A6 alle Werte aus der Datenbank zusammenrechnen?

neben dem Bereich A1:A5 ist leider kein Platz das ich sie durch Sverweis abfragen und zusammenrechnen kann.

Und 5mal die Formel Sverweis(A1;....)+Sverweis(A2;...)+... ist mir iwie zu simple und nicht effektiv.

Ich habe eher an sowas gedacht:

{=Summe(Sverweis(A1:A5;Tabelle1!A1:B11;2;0))}

aber das klappt leider nicht, ich habe auch an die Wahl() Funktion gedacht aber ich wüsste nicht wie das geht.
Das Problem hier ist lediglich, dass nicht nur ein Wert gesucht wird sondern gleich 5 sofern sie nicht leer oder 0 sind.

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

Hallo,

wie muss ich diesen Code hier umschreiben damit NICHT die Unterordner der Unterordner angezeigt werden, sondern nur die der 'ersten Stufe'.

Also angenommen auf dem Laufwerk C:\ sind die Ordner

A, B, C, D, E

und diese Unterordner von C:\ enthalten jeweils auch Unterordner Namens
aa, bb, cc, dd, ee,

Dann schreibt der bisherige Code

A - aa
bb
cc
dd
ee
B - aa
bb

und so weiter.
Ich brauche aber nur die Ordner A, B, C, D, E und nicht deren Unterordner.

Public Sub OrdnerListen_Start()

  Dim fso As Object
Dim strPfad As String

    strPfad = "C:\"  

With ActiveSheet   

    .UsedRange.ClearContents

    Set fso = CreateObject("Scripting.FileSystemObject")

    Call OrdnerListen(fso, strPfad, .Range("A1")) ' Pfad anpassen!

    Set fso = Nothing

   End With

   End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As Long, Optional Spalte As Long)

On Error Resume Next

  Dim o, uo

  Set o = fso.GetFolder(Ordnerangabe)   

  rng.Offset(Zeile, Spalte).Value = o.Name    
Zeile = Zeile + 1

  For Each o In o.SubFolders

    Call OrdnerListen(fso, o.Path, rng, Zeile, Spalte)

  Next

  Set o = Nothing
Set uo = Nothing

End Sub

Hallo,

Ich besitze eine Yamaha XT660X und als meine letzte Batterie den Geist aufgab, erkannte man dies schon daran, dass das Display während der Fahrt einfach ausging. Blinker und so haben funktioniert nur das Display ging dann ab und zu aus und ging beim Anfahren oder im Zweiten Gang wieder an.

Als ich mit der alten Batterie zu Polo bin um mir eine neue zu kaufen, hat der Verkäufer die neue auch direkt gemessen und diese war zu 100% geladen. Ich habe sie 1h später in mein Motorrad verbaut und es sprang auch sofort an.

Nach na halben bis ganzen stunde ging mein Display dann plötzlich wieder aus und als ich stehen blieb um nach einer Werkstatt zu Googlen und dann weiter fahren wollte, stotterte sie sogar eins zwei mal länger bevor sie ansprang.

Ich also wieder zurück zu Polo um die Batterie nochmal zu messen um einen Mysteriösen Stromzieher auszuschließen. Messung ergab, daß die Batterie immer noch voll war und nicht entladen wurden.

Ich bin dann davon ausgegangen das mein Display evtl nicht ganz Connectet und bin dann auch ne Woche Problemlos gefahren (außer dass das Display sich gern verabschiedet hat, was sogar den kilometer Zähler nicht weiter zählen ließ..)

Und als das Motorrad von Freitag Abend bis Montag morgen unbenutzt war, sprang sie gar nicht mehr an. Zwei Tage nicht benutzt und sie wollte nicht mehr. Sie stottert halt nur aber startet nicht. Woran kann das liegen bei einer vollen Batterie?