Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
128to132
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
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern

Speichern
25.06.2002 09:20:20
Sven
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Speichern
25.06.2002 11:02:22
Michael Scheffler
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

Re: Speichern
25.06.2002 11:07:08
Sven
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

Anzeige
Re: Speichern
25.06.2002 11:34:00
Michae Scheffler
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
Re: Speichern
25.06.2002 11:38:11
sven
Vielen vielen Dank,

damit klappt s wunderbar !!!!!!!

VLG Sven

PS Jetzt nur noch auf Deutschland hoffen :-)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige