title image


Smiley re: integer variable
Hallo Maike,



so könnte ein Makro aussehen - Excel-Datei im gleichen Verzeichnis wie CSV-Datei, CSV-Trennzeichen = Semikolon:

Viele Grüße

Ulrich



Sub Einlesen()

Dim K As Long, Zähler1 As Long, Zähler2 As Long, Beginn As Long, SpZ as long

Dim Dummy as String

Beginn = 30000

Close #1

Open ThisWorkbook.Path & "\deine.csv" For Input As #1

Zähler1 = 0: Zähler2 = 0

While Not EOF(1)

Zähler1 = Zähler1 + 1

Line Input #1, Dummy

If Zähler1 >= Beginn Then

Zähler2 = Zähler2 + 1

matrix = Split(Dummy, ";")

SpZ = UBound(matrix)

For K = 1 To SpZ + 1

Cells(Zähler2, K) = matrix(K-1)

Wend

End If

Wend

Close #1

End Sub


(Falls vorhanden:) Tabellen sind eingefügt mit Tool von Schorsch Dabbeljuh
hier sein offizieller Download-Link

(Fast) alles über Excel-Formeln ohne VBA findet man auf der Seite Excelformeln

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: