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"
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
Close #1
End If
End Sub