Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen tEinträge rennen

Zellen tEinträge rennen
25.12.2003 16:54:54
Egon Kernien
Hallo Experten!

Ich öffne eine .csv Datei wie folgt:

Workbooks.OpenText D:\Daten\Instabus\Winswitch\Schreiber\24_12_2003Aussentemperatur.csv"

In Excel steht dann in Spalte A:

Uhrzeit;Wert
11:04:43;-2
12:07:04;-1
12:56:16;0
13:33:16;1
15:29:26;0
16:17:17;-1
23:45:13;-2

Wie kann ich die Uhrzeit in Spalte A und den Wert(Aussentemp.) die durch ein Semikolon getrennt sind in Spalte B erhalten?
Also: Uhrzeit und Wert in 2 versch. Spalten trennen?

Weihnachtlichen Gruß im voraus
Egon Kernien

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen tEinträge rennen
25.12.2003 17:01:46
oos
Hallo Egon,

versuch's mit Menü: Daten - Text in Spalten

G.a.BY
Niko
AW: Zellen tEinträge rennen
25.12.2003 17:02:17
Josef Ehrensberger
Hallo Egon,

diesen Code kannst Du sicher anpassen.



Sub TextImport()
   Dim iRow As Integer, iCol As Integer
   Dim sFile As String, sTxt As String
   sFile = Application.GetOpenFilename("Text Files (*.txt;*.csv;*.dat), *.txt;*.csv;*.dat")
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Datei wurde nicht gefunden!"
      Exit Sub
   End If
   Application.ScreenUpdating = False
   Application.StatusBar = "Datei wird importiert  -  Bitte Warten"
   iRow = 1
   iCol = 1
   Close
   Open sFile For Input As #1
      Do Until EOF(1)
         Line Input #1, sTxt
         Do While InStr(sTxt, ";")
            Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, ";") - 1)
            sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";"))
            iCol = iCol + 1
         Loop
         Cells(iRow, iCol).Value = sTxt
         iRow = iRow + 1
         iCol = 1
      Loop
   Close
   Application.StatusBar = False
   Application.ScreenUpdating = True
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5


Gruß Sepp
Anzeige
AW: Zellen tEinträge rennen
25.12.2003 17:05:18
DieterB
Hallo Egon,
hier hast Du einen VBA-Code für dein Problem, ich hoffe der hilft Dir


Sub Trennen()
Dim i As Integer
Sheets("NamederTabelle").Activate
Range("A1").Select
Do Until ActiveCell.Value =""
i = InStr(ActiveCell.Value, " ; ")
ActiveCell.OffSet(0, 1).Value = _
Left(ActiveCell.Value, i - 1)
ActiveCell.OffSet81, 0).Select
Loop
End Sub


Gruß

DieterB
AW: Zellen tEinträge rennen
25.12.2003 17:22:52
Egon Kernien
Hallo!
Da ist ein Fehlerchen drin:

ActiveCell.OffSet(0, 1).Value = _
Left(ActiveCell.Value, i - 1)
ActiveCell.OffSet81, 0).Select

Klar, die 8 ist Klammer aber sonst...
Weiß nicht weiter!
Gruß Egon
Anzeige
AW: Zellen tEinträge rennen
25.12.2003 18:39:35
Nepumuk
Hallo Egon,
versuch es so:

Option Explicit
Public Sub Trennen()
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = 1 To Cells(65536, 1).End(xlUp).Row
Cells(lngZeile, 2) = Right(Cells(lngZeile, 1), Len(Cells(lngZeile, 1)) - InStr(1, Cells(lngZeile, 1), ";"))
Cells(lngZeile, 1) = Left(Cells(lngZeile, 1), 8)
Next
Application.ScreenUpdating = True
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Zellen tEinträge rennen
25.12.2003 19:43:15
DieterB
Hallo Egon,

Du brauchst diesen Code nur zu übernehmen und das Makro ausführen.
Das Makro selektiert die Zelle A1 und alle nachfolgenden (A2, A3 usw) bis es auf eine leere Zelle stößt.

Dort wird die Zeichenfolge durchsucht bis ein ";" gefunden wird.
dann wird der linke Teil ausgeschnitten und in die Spalte B gepackt.
(das heißt, statt "leftActiveCell" müßte es "rightactivecell" heißen.)
das ganze in einer Schleife, solange die zellen <> "" sind.
Ich werde es mal für dich testen

Gruß

DieterB

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige