Thema Datum  Von Nutzer Rating
Antwort
Rot IP-Adresse mit Punkten angeben
 10.02.2017 15:01:36 Gast67561
Solved
10.02.2017 15:29:25 Onur
NotSolved
10.02.2017 15:52:12 Gast25012
NotSolved

Ansicht des Beitrags:
Von:
Gast67561		 Datum:
10.02.2017 15:01:36		 Views:
1314		 Rating:
     
Antwort:
 Nein
Thema:
IP-Adresse mit Punkten angeben

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.

 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot IP-Adresse mit Punkten angeben
 10.02.2017 15:01:36 Gast67561
Solved
10.02.2017 15:29:25 Onur
NotSolved
10.02.2017 15:52:12 Gast25012
NotSolved