Hallo zusammen.
Vor einer Woche habe ich mit meiner Ausbildung zur Fachinformatikerin begonnen und bin bis jetzt ziemlich gut zurecht gekommen.
Nun habe ich die gloreiche Aufgabe bekommen, Daten aus einer txt-Datei in Excel einzüfügen. Jedoch nicht einfach alles übernehmen, sondern nur bestimmte Bereiche aus der txt.datei.
Wenn ich zum Beispiel in der Text-Datei die Angabe "Netz", "Raum 408" und "Raumdose 7.5" habe, möchte ich in Excel unter der Zelle "Raum" die Zahl 408, und unter der Zelle "Raumdose" die Zahl 7.5 haben. "Netzt" bleibt aber außen vor, da es nicht interessiert.
Habe schon einige Zeit an meinem Code herum gewurschtelt, aber ich finde keinen weiteren Lösungsansatz. Auch in allen möglichen Foren habe ich geschaut, wo ähnliche Beiträge waren, aber bis jetzt konnte ich die dort vorgeschlagenen Lösungswege nicht mit einbeziehen.
Ich hoffe ihr könnt mir ein paar Denkanstöße mit auf den Weg geben.
Hier der bisherige Code.
Sub GenConfig_Klicken()
Dim strFile As String, strTmp As String
Dim rng As Range
Dim idC As Range
strFile = "R:\CISCO_Configs\Generierte_Configs\Gen_Interfaces_DESCR_and_VLAN.txt" 'Ausgabedatei
On Error Resume Next
Set rng = Columns(1).SpecialCells(xlCellTypeConstants)
If Not rng Is Nothing Then
Open strFile For Output As #1
For Each rng In Columns
Print #1, ("<Spalte P> - <Spalte Q>:" & vbCrLf & _
"conf t" & vbCrLf & vbTab & _
"interface <Spalte O>" & vbCrLf & vbTab & vbTab & _
"description P <Spalte M> R <Spalte D><Spalte E>" & vbCrLf & vbTab & vbTab & _
"switchport" & vbCrLf & vbTab & vbTab & _
"switchport access vlan <Spalte G>" & 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)
Next
' For Each rngC In rng
' strTmp = rngC.Text
' Print #1, rngC.Text
' Next
Close #1
End If
End Sub
|