Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie geht das einfacher, Schleife doppelt

Wie geht das einfacher, Schleife doppelt
Holger
Hallo,
ich habe zwei Variablen für Dateinamen.
Ich prüfe nun ab ob es diese schon gibt, wenn ja, werden diese gelöscht.
Da ich zwei Variablen habe, muss ich das zweimal machen.
Oft bin ich mit diesem Problem konfrontiert, dass ich unnötig oft
CodeWiederholungen habe.
Kann man das nicht besser machen? Da es String Variablen sind,
weiß ich nicht wie ich es besser machen kann, sonst hätte
ich an ein array gedacht. Ihr seht, ich bin gerade an dem Punkt
des gefährlichej ViertelWissens angelangt.
strDateiname sieht so aus (immer der komplette Pfad): C:\juhu\juhu.xls
Sub kompliziert
If Dir(strDateiname1)  "" Then
Kill strDateiname1
End If
If Dir(strDateiname2)  "" Then
Kill strDateiname2
End If
End Sub

ARRAY ist schon mal nicht schlecht
25.06.2010 09:51:34
NoNet
Hallo Holger,
wenn Deine Dateinamen in einzelnen Variablen gespeichert sind, bleibt dir nichts anderes übrig, als die von Dir gepostete Methode zu verwenden.
Sinnvoller (bei vielen Dateinamen) wäre es jedoch (da bestätigt sich Dein Verdacht), dafür eine ARRAY-Variable zu verwenden. Hier ein Beispiel (4 Dateinamen im Array) :
Sub Jektiv()
Dim strDateien, lngT As Long
strDateien = Array("juhu.xls", "oweh.xls", "naja.xls", "aha.xls")
Const strpfad = "C:\Juhu\" 'Pfad bitte mit "\" am Ende eingeben !
For lngT = LBound(strDateien) To UBound(strDateien)
If Dir(strpfad & strDateiname(lngT))  "" Then _
Kill strpfad & strDateiname(lngT)
Next
End Sub
Ich hoffe, dein Wissen ist nun von ¼ auf ⅜ angestiegen ;-)
Gruß, NoNet
gegen 6:4 n. 11m-Schießen
Anzeige
AW: ARRAY ist schon mal nicht schlecht
25.06.2010 10:20:28
Holger
Hi NoNet,
hm, das list sich super. Aber ich kapiere das hier nicht:
strDateiname(lngT))
strDateiName wird doch nirgendwo deklariert, also was ist das und wozu das lngT?
Mein Problem ist noch folgendes:
Ich brauche beide Dateinamen noch in einem anderen Modul, da ich die Dateinamen als Public deklariert habe, um sie in dem anderen Modul als Parameter an eine Funktion zu übergeben, die einen
csv Export durchführt. Dafür brauche ich den Dateinamen plus vollen Pfad damit
der Befehl Open Dateiname as #1 funktioniert.
AW: ARRAY ist schon mal nicht schlecht
25.06.2010 10:31:47
Holger
Nochmal Hallo,
bei mir funktioniert es auc nicht, weil srDateiname nicht deklariert ist.
Wenn ich einfach Dim strDateiname definiere, erscheint die Meldung Typen unverträglich?
Anzeige
@NoNet Danke, hab was
25.06.2010 10:40:23
Holger
He,
habe deinen Code jetzt kapiert.
Ist ja echt cool. So, hier ist meine Lösung und alles in einem. 
Sub SUPI
strDateinameData = "1_ "
strDateinameInStore = "2_ "
For lngT = LBound(strDateien) To UBound(strDateien)
strDateien(lngT) = strDateien(lngT) & strDate & ".csv"
strDateien(lngT) = strPfad & strDateien(lngT)
If Dir(strDateien(lngT))  "" Then
Kill strDateien(lngT)
End If
Next lngT
End Sub

Ja, genau: strDateien() anstatt strDateinamen()_oT
25.06.2010 10:47:00
NoNet
_oT = "ohne Text"
Halt, eine Sache noch
25.06.2010 10:54:31
Holger
Ne NoNet,
bitte hilf nochmal kurz.
Alles funktioniert soweit, doch würde ich in der Schleife gerne strDateiNameData und strDateiNameInstore
mit dem aktuellesten Wert aus strDateien upaten. Geht das?
Denn in der Schleife baue ich strDateien ja so zusammen wie ich die Variablen später benötige.
Sonst habe ich ja keine Ersparnis. Verstehst du mein Problem?
Anzeige
Ich kapiere Deine Frag nicht so ganz...:-( _oT
25.06.2010 11:00:36
NoNet
_oT = "ohne Text"
Schau
25.06.2010 11:10:18
Holger
Hallo NoNet (das ne vorhin sollte ein he sein),
habe meinen Code angepasst, vielleicht verstehst du, was ich brauche.
Es funktioniert jetzt, aber wie immer so kompliziert:
Sub NEu
For lngT = LBound(strDateien) To UBound(strDateien)
strDateien(lngT) = strDateien(lngT) & strDate & ".csv"
strDateien(lngT) = strPfad & strDateien(lngT)
If Dir(strDateien(lngT))  "" Then
Kill strDateien(lngT)
End If
If InStr(1, strDateien(lngT), "Features") > 0 Then
strDateinameData = strDateien(lngT)
Else
strDateinameInStore = strDateien(lngT)
End If
Next lngT
End Sub

Anzeige
Halt, eine Sache noch
25.06.2010 10:59:52
Holger
Ne NoNet,
bitte hilf nochmal kurz.
Alles funktioniert soweit, doch würde ich in der Schleife gerne strDateiNameData und strDateiNameInstore
mit dem aktuellesten Wert aus strDateien upaten. Geht das?
Denn in der Schleife baue ich strDateien ja so zusammen wie ich die Variablen später benötige.
Sonst habe ich ja keine Ersparnis. Verstehst du mein Problem?
AW: Wie geht das einfacher, Schleife doppelt
25.06.2010 10:33:11
Christian
Hallo,
du kannst ja auch Strings in einen Array packen.
Hier ein Bsp mit MsgBox. Kill ist immer gleich so endgültig und eignet sich wenig zum üben... 
Option Explicit
Sub TestIt()
Dim strTest(1) as String
Dim i as long
strTest(0) = "erster String"
strTest(1) = "zweiter String"
For i = 0 to UBound(strTest)
MsgBox strTest(i)
Next
End Sub
Gruß
Christian
Anzeige
AW: Wie geht das einfacher, Schleife doppelt
25.06.2010 14:38:04
dan
Hallo Holger,
oder man koennte eine Klasse bilden, die das alles macht.
Gruss dan, cz.
Ein simples Beispiel:
' -------------------------------------------------------------
' Standart Module Code
' -------------------------------------------------------------
Option Explicit
' datei manager deklarieren
Private dateiNamen As DateiNamenManager
Public Sub Main()
On Error GoTo FinallyMain
' instance bilden
Set dateiNamen = New DateiNamenManager
' datei namem zugeben
dateiNamen.AddDateiName ("C:\juhu\juhu.xls")
dateiNamen.AddDateiName ("C:\juhu\juhu2.xls")
dateiNamen.AddDateiName ("C:\juhu\juhu3.xls")
Dim i As Variant
i = dateiNamen.DateiName(1)
i = dateiNamen.DateiName(2)
i = dateiNamen.DateiName(3)
i = dateiNamen.DateiName(4) ' error here
' dann alle datei namen pruefen lassen
dateiNamen.Pruefen
FinallyMain:
If (Err.Number  0) Then MsgBox Err.Description, vbCritical
' instance auf Nothing
Set dateiNamen = Nothing
End Sub
' -------------------------------------------------------------
' Class Module Code, Name DateiNamenManager
' -------------------------------------------------------------
Private dateiNamen As Collection
Private Sub Class_Initialize()
Set dateiNamen = New Collection
End Sub
Public Property Get DateiName(index As Integer) As String
If (index >= 1 And index DateiName = dateiNamen.Item(index)
Else
Err.Raise vbObjectError + 1000, "DateiNamenManager.DateiName", "Index out of range"
End If
End Property
Public Sub AddDateiName(ByVal newDateiName As String)
dateiNamen.Add Item:=newDateiName, Key:="DateiName_" & dateiNamen.Count
End Sub


Public Sub Pruefen()
Dim dateiNamenItem As Variant
For Each dateiNamenItem In dateiNamen
If Dir(dateiNamenItem)  "" Then
Kill dateiNamenItem
End If
Next dateiNamenItem
End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen

Kriterien in Query aus Exceltabelle
Joachim

Hallo zusammen,
ich hab heute entdeckt, dass ich mit dem Query direkt auf meine Oracle-DB komme. Mal wieder was neues gelernt.
Ich habe die Abfrage im Query mit Kriterien gebastelt und übergebe das Ergebnis nach Excel. Alles wunderschön. Nur sehr statisch.
Ich möchte aber per VBA:
20.11.2008 15:52:00
Thread-ID: 1026469
2 Beiträge
Anzeige
Minisymbolleiste Excel 2007
Susanne

Hallo,
selbst wenn ich das Häkchen bei den Excel-Optionen aus mache, erscheint diese Minisymbolleiste bei einem Rechtsklick auf eine Markierung - zusätzlich zum herkömmlichen Rechtsklick-Menü. Wie wird man die los?
18.01.2009 05:50:00
Thread-ID: 1041046
7 Beiträge
Dateiinhalt mit Hyperlinks in Excel ausgeben
PaMa

Guten Tag zusammen
Ich hoffe, Ihr VBA - Profis könnt mich hier bei meiner aktuellen Problemstellung unterstützen.
Und zwar hab ich folgendes vor:
in einer Excel - Arbeitsmappe hab ich einen Knopf
Wenn ich auf diesen Knopf klicke so soll folgendes geschehen:
- Der Dateiinhalt...
23.01.2009 07:15:00
Thread-ID: 1042795
4 Beiträge
Anzeige
Formel Textteilstring dynamisch extrahieren
Horst_H

Hallo,
seit Stunden probiere ich bislang leider ergebnislos eine Formel zu erstellen:
Quelle:
"S2001W.rar;http://www.netload.in/dateigTTIDfQowZ/S2001W.rar.htm;93.32
MB;0;12.02.2009"
Ergebnis soll sein der string zwischen dem 1. und dem 2. Semikolon, weil die Testlänge unters...
19.02.2009 13:50:00
Thread-ID: 1052127
6 Beiträge
Text:Hyperlink makro zuweisen
Tobias

Ahoi allerseits,
Ich möchte einem text ein sortierungs-makro zuweisen.
Ich könnte jetzt ein textfeld aufziehen, so gings mit rechtermaustaste-zuweisen ganz einfach
kann ich es aber auch direkt auf den text legen?
sozusagen ein hyperlink zum makro ?
besten dank,
tobias
23.02.2009 20:08:37
Thread-ID: 1053274
4 Beiträge
xls nach pdf Hyperlinks übernehmen
Florian

Hallo zusammen,
wie kann ich Hyperlinks beim Konvertieren einer xls-Datei nach pdf übernehmen?
Danke,
Gruss Florian
04.03.2009 18:07:33
Thread-ID: 1056538
2 Beiträge
wieso geht das nicht?
reto

Private Sub Label18_Click() If Label18_Click.Value > Label1_Click.Caption Then Label18_Click.Caption = 24 End If End Sub
Vielen Dank für die Hilfe!
Gruss Reto
24.03.2009 15:15:56
Thread-ID: 1063373
21 Beiträge
Info in Symbolleiste oder Extrafenster
Oliver

Hallo.
Wie kann ich, zum Beispiel die Spalte und Reihe, in einer Symbolleiste oder einem Extrafenster (sollte immer im Vordergrund sein - als Info!!) mir anzeigen lassen?
Danke
Oliver
20.04.2009 13:22:22
Thread-ID: 1069799
17 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
6
3
6
5
3
1
20
16
1
3
1
3
2
5
2
2
3
5
4
11
2
2
2