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