VBA - Excel - programmieren

Re(4): VBA - Excel - programmieren

seti__23 — Wed, 09 Apr 2008 10:29:51 GMT

ne mittels vba!

Re(3): VBA - Excel - programmieren

Ardjan — Wed, 09 Apr 2008 10:13:54 GMT

Im Excel-Blatt?

C1: =IF(A1<>B1;'Ungleich')

Re(2): VBA - Excel - programmieren

seti__23 — Wed, 09 Apr 2008 09:39:01 GMT

Hast du eine Ahnung, wie ich zwei Dateinamen miteinander vergleichen kann und die nicht gleichen ausgeben kann!

Also Spalte 1 stehen Zeile für Zeile Dateinamen und Spalte 2 stehen Zeile für Zeile Dateinamen!

Und dann soll in der dritten Spalte nur all jene angeführt werden, die nicht gleich sind!

Ich habe einfach keine Lösung dafür!

Re(3): VBA - Excel - programmieren

Ardjan — Fri, 04 Apr 2008 09:19:21 GMT

If blabla then
  Action1
Else
  If bleble Then
    Action2
  Else
    Action3
  End If
End If

Re(2): VBA - Excel - programmieren

seti__23 — Fri, 04 Apr 2008 06:40:13 GMT

http://forum.geizhals.at/t562710,4723057.html#4723057

Re(2): VBA - Excel - programmieren

seti__23 — Fri, 04 Apr 2008 06:40:02 GMT

Super, danke!

Ich habe schon ein bisschen was geschafft!

Weißt du zufällig, wie ich mehrere ifs in vba verschachteln kann?

Re: VBA - Excel - programmieren

Ardjan — Thu, 03 Apr 2008 22:01:40 GMT

Ich bin kein Programmierer, aber habe schon einige Male so mit STrings herumgespielt.

- um diese zu tun, soll ich zuerst bei der Ausgabe den Pfad wegschneiden (da hab ich mal gemacht)

Der Dateiname fangt unmittelbar nach der letzte Backslash '\' an. Eine kleine Schleife der danach sucht könnte hier helfen: (Pseudocode)

Do Until Instr(1,PathPlusFile,"\") = 0 'Schleife solange noch ein '\' enthalten ist
  PathplusFile = Right(PathPlusFile, Len(PathPlusFile) - 1) 'Links ein Zeichen abschneiden
Loop
FileName = PathPlusFile

Dann der DateiEndung entfernen:

If Right(FileName,4) = ".csv" Then 'wir sollten schon schauen ob überhaupt eine DateEndung da ist :-)
  FileName = Left(FileName, Len(FileName) - 4) 'Endung einfach abschneiden
End If

Stehen die Zahlen immer am Ende? Dann kannst du nämlich etwas wie der erste Routine verwenden:

Do Until IsNumeric(Right(FileName,1)) = False 'ist das letzte Zeichen eine Zahl? Wenn ja...
  FileName = Left(FileName, Len(FileName) - 1) '...abschneiden!
Loop

HTH

Re: VBA - Excel - programmieren

pyti2000 — Thu, 03 Apr 2008 19:09:07 GMT

Es gibt dafür sicher verschiedene Lösungen, aber auf die Schnelle fällt mir nur das ein:

Mit Right(DateiName, 4) kannst ".csv" wegschneiden
Die Zahlen findest du mit  Val(DateiName)  funktioniert aber nur von links.
Daher zuerst den String umdrehen z. B.

Sub Reverse()

Dim lLen As Long, lCtr As Long
Dim sChar As String
Dim sAns As String
Dim sDateiName As String

sDateiName = Range("A1") 'oder mit einer Schleife für Spalten

lLen = Len(sDateiName)
For lCtr = lLen To 1 Step -1
    sChar = Mid(sDateiName, lCtr, 1)
    sAns = sAns & sChar
Next

Range("A2") = sAns

End Sub

Mit  Len(CStr(Val(sAns)))  kannst die Anzahl der Zahlen lesen, dann Zahlen wegschneiden und wieder mit Reverse und du hast deine Lösung.

VBA - Excel - programmieren

seti__23 — Thu, 03 Apr 2008 06:36:07 GMT

Ich habe folgendes Problem:

Ich habe noch NIE mit VBA gearbeitet und habe jetzt folgende Aufgabenstellung!

- ich soll zuerst einmal Datei miteinander vergleichen!
- um diese zu tun, soll ich zuerst bei der Ausgabe den Pfad wegschneiden (da hab ich mal gemacht)
- dann soll ich die Endung (.csv) bei den CSV Dateien wegschneiden! Das klappt nicht, ich habe auch überhaupt keine Ahnung!
- dann soll ich auch noch die Zahlen wegbekommen!

Die Dateien sehen ungefähr so aus: blabla_BLABLA12.csv

Aber es habe nicht alle Dateinamen eine Zahl bzw. wenn sie Zahlen haben, dann sind diese auch unterschiedlich lang! (2 Stellen, 3 Stellen, etc.).

- Wenn ich das habe, dann soll ich die Dateien miteinander vergleichen und wenn die Dateien den gleichen namen haben, dann soll in einem neuen Arbeitsblatt alle Dateien angeführt werden, die gleich sind!

ICH HABE NULL AHNUNG!

Wär super, wenn mir wer helfen kann!