Guten Tag zusammen.

Seit einiger Zeit versuche ich über vba eine Excel Tabelle auszulesen und bestimmte Daten in eine Textdatei ausgeben zu lassen. 

So weit, so gut. Hat auch alles tutti funktioniert. 

Nun sollen die eingetragenen IP-Adressen ebenfalls in der txt-datei erscheinen. Sie erscheinen, aber sie werden nicht wie üblich XXX.XXX.XXX.XXX angezeigt, sondern XXXXXXXXXXXX. 

Habe schon versucht in Excel selbst eine Problemlösung zu finden, bis jetzt erfolglos. 

Habe dann im Code den Integer zu String konvertiert, aber trotzdem ohne Erfolg.  

Da sich sonst niemand wirklich mit VBA bei mir auskennt, wäre ich über eine kleine Hilfestellung sehr glücklich. 

Im Code habe ich mit "sZeile" und "Mid" versucht, die Punkte zur IP-Adresse hinzu zufügen, aber auch das ist bis jetzt nur ein trostloser Flop gewesen.

 
  
    Open strFile For Output As #1
    
    Do Until Cells(iZeile, 1).Value = ""    ' Schleife: Laufe solange, bis Zelle leer ist, Abbruchbedingung

        sZeile = CStr(Cells(iZeile))
        sZeile = Format(iZeile, "000000000000")
        sZeile = Mid(sZeile, 1, 3) & "." & Mid(sZeile, 4, 3) & "." & Mid(sZeile, 7, 3) & "." & Mid(sZeile, 10, 3)
        
        Print #1, (Cells(iZeile, 16) & " - " & Cells(iZeile, 17) & ":" & vbCrLf & _
            "conf t" & vbCrLf & vbTab & _
            "interface " & Cells(iZeile, 15) & vbCrLf & vbTab & vbTab & _
            "description P " & Cells(iZeile, 13) & " R " & Cells(iZeile, 4) & Cells(iZeile, 5) & vbCrLf & vbTab & vbTab & _
            "switchport " & vbCrLf & vbTab & vbTab & _
            "switchport access vlan " & Cells(iZeile, 7) & vbCrLf & vbTab & vbTab & _
            "switchport mode access " & vbCrLf & vbTab & vbTab & _
            "switchport nonegotiate " & vbCrLf & vbTab & vbTab & _
            "spanning-tree portfast edge" & vbCrLf & vbTab & vbTab & _
            "no shut" & vbCrLf & vbTab & _
            "exit" & vbCrLf)                   ' Zwischenspeicher in TXTDatei schreiben
        iZeile = iZeile + 1                     ' Laufvariable