Speichern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: Alle Versionen
nach unten

Betrifft: Speichern
von: Sven
Geschrieben am: 25.06.2002 - 09:20:20

Guten Morgen,

ich möchte eine Excel Tabelle per VBA in mehreren Abschnitten
abspeichern.

Das funktioniert soweit auch ganz gut, jedoch möchte ich die Informationen, die in der Spalten A vorhanden sind nur bis zu
"/" abspeichern. Geht das ?

BSP. Dateialt Zelle A1 = 1234 / 2323
Dateineu Zelle A1 = 1234

Vielen Dank

Sven


nach oben   nach unten

Re: Speichern
von: Michael Scheffler
Geschrieben am: 25.06.2002 - 11:02:22

Hallo,

ohne ein wenig Programmieraufwand nicht.

1. Lege eine neue Datei an - das kannst Du aufzeichnen.

2. Nimm eine Schleife über alle Werte in der Spalte A.

3. Teste mit "InStr" das Auftreten von "/".

4. Schneide mit "Left" den Teil des Strings ab und schreibe ihn jeweils in die neue Datei

Gruß

Micha


nach oben   nach unten

Re: Speichern
von: Sven
Geschrieben am: 25.06.2002 - 11:07:08

Hi Michi,

ich habe soweit alles in VBA programmiert und es geht einwandfrei.
Mit Left habe ich auch schon gearbeitet, jedoch weiss ich net,
ob es einen Befehl gibt, der mir nur bis zu dem "/" alles anzeigt.

Ich bräuchte ne VBA Lösung, falls möglich...

Nochmals danke


nach oben   nach unten

Re: Speichern
von: Michae Scheffler
Geschrieben am: 25.06.2002 - 11:34:00

Option Explicit
Sub test()
Dim varTest As Variant, strGesucht As String
Dim lngGesucht
strGesucht = "/"
varTest = "1234 / 2323"
If varTest Like "*" & strGesucht & "*" Then
lngGesucht = InStr(varTest, strGesucht)
varTest = Left(varTest, lngGesucht - 1)
MsgBox varTest
End If
End Sub

nach oben   nach unten

Re: Speichern
von: sven
Geschrieben am: 25.06.2002 - 11:38:11

Vielen vielen Dank,

damit klappt s wunderbar !!!!!!!

VLG Sven

PS Jetzt nur noch auf Deutschland hoffen :-)

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Speichern"