Main Page

Help

You can read the introduction to MediaWiki Syntax in german or english. Additionally, you can consult the help pages provided by the WikiMedia Foundation and by mediawiki.org, the developers of this software. There's also help regarding the transformation of Microsoft Office documents (german).

Resetting / changing passwords

• Password Recovery Procedure for Cisco Routers
• Password Recovery Procedure for Cisco Switches
• Password Recovery Procedure for Cisco Secure Pix
• Standard Break Key Sequence Combinations During Password Recovery
• Password Recovery Procedure for the Catalyst 6500 with Supervisor 720 (WS-SUP720 / WS-SUP720-3B / WS-SUP720-3BXL) Running Cisco IOS Software Prior to 12.2(17)SX

Loading IOS

• Loading IOS on a Switch or Router
• Loading IOS from a Switch or Router to your PC
• Loading IOS on a switch or router via the console
• Loadind IOS on a Sup32

Telling the difference

• The difference between a PC, SPC, UPC and APC finish on a fiber optic connector and which one you should choose
• The difference between a singlemode and a multimode fibre patchcord
• The difference between a SC/PC and SC/APC adapter

Power supply

• PWR-2700-AC for Cisco7606
• PWR-2700-AC/4 for Cisco7604 and WS-C6504-E
• PWR-7200-DC / PWR-7200-DC+
• WS-CAC-2500W
• CAB-7513-ACE / CAB-AC-2500W-EU

Miscellaneous

• FAN-MOD-3 / FAN-MOD-3HS / FAN-MOD-3HS=
• WIC-1ADSL
• WS-CF-UPG= / CF-ADAPTER-SP

GBICs / SFPs

• connector matrix for cisco transceivers (GBICs and SFPs)
• Testing your GBIC per ping command
• GBIC / SFP / optical components

Cisco routers

• Specifications
• Routermemory
• Router Module Crossref
• Router Performance Matrix
• CISCO INTEGRATED SERVICE ROUTERS

Cisco switches

• Specification
• Stacking
• GBICs

Cisco 6500 series switches

• Cisco 6503 and Cisco 6503-E
• Cisco 6506 and Cisco 6506-E
• Cisco 6509 and Cisco 6509-E
• Cisco 6509-NEB an Cisco 6509-NEB-A
• Cisco 6509-V-E
• Cisco 6513

Cisco 2600 series routers

• Cisco2610XM-16TS Terminal Server Router Bundle

Cisco 7200 series routers

• Port Adapter Compatibility for Cisco 7200 VXR Routers

Cisco 7600 series routers

• Cisco7603 and Cisco7603-S routers
• Cisco7604 router
• Cisco7606 and Cisco7606-S routers
• Cisco7609 and Cisco7609-S routers
• Cisco7613 router

supervisor engines (SUP) / route switch processors (RSP) / performance route processors (PRP)

• Cisco catalyst 6000 / 6500 series supervisor engines
• forwarding engines / multilayer switch feature cards (MSFC) and routing engines / policy feature cards (PFC)
• WS-SUP720-3BXL

Nesevo Lab

• How to connect with the Nesevo lab
• Verbinden mit dem Nesevo- Lab
• Equipment
• Ausstattung

CCNA / CCNP

• CCNA / CCNP Home Lab Tutorial
• CCNA Configuration Examples
• CCNA / CCNP Guide

CWDM / DWDM

• CWDM
• DWDM

cables / cisco cables

• back to back serial cables / back to back smart serial cables

Cisco GSR Linecards

• GSR linecard memory locations

=Cisco GSR line cards and their engine types

'Delimeter & Formatierungstags Const TabellenBeginn = "{| border = " & """" & "1" & """" Const TabellenEnde = "|}" Const ZeilenStartDelimeter = "|" Const ZeilenEndDelimeter = "" Const ZeilenTrennzeichen = "|-" Const Delimeter = "|" 'SpaltenTrennzeichen '----------------------------------------------------- Sub Tabelle2Wiki()

 Dim fHandle, i, j As Integer
 Dim StartZeile, StartSpalte, EndZeile, EndSpalte As Integer
 fHandle = FreeFile()
 StartZeile = Val(InputBox("Ab welcher Zeile soll umgewandelt werden ?", _
                           "Startzeile - Schritt 1 von 5", "1"))
 'nach belieben als Zahl eintragen a=1, z=26
 StartSpalte = Val(InputBox("Ab welcher Spalte soll umgewandelt werden ?" + _
                   vbCrLf + "(z.B. A=1, Z=26, AG=33)", _
                   "Startspalte - Schritt 2 von 5", "1"))
 EndZeile = Val(InputBox("Bis zu welcher Zeile soll umgewandelt werden ?", _
                           "Endzeile - Schritt 3 von 5", "100"))
 
 'nach belieben als Zahl eintragen a=1, z=26, Spalte AG = z+7=33
 EndSpalte = Val(InputBox("Bis zu welcher Spalte soll umgewandelt werden ?" + _
                   vbCrLf + "(z.B. A=1, Z=26, AG=33)", _
                   "Endspalte - Schritt 4 von 5", "26"))
 DateiName = InputBox("Wie soll die Ausgabedatei heissen (bitte ggf. den Pfad ergänzen) ?", _
                           "Dateiname - Schritt 5 von 5", "wiki-tabelle.txt")
 Open DateiName For Output As #fHandle
  Print #fHandle, TabellenBeginn      'Beginn der Tabelle
  For i = StartZeile To EndZeile
       For j = StartSpalte To EndSpalte
           Print #fHandle, ZelleLesen(i, j)
       Next j
       Print #fHandle, ZeilenTrennzeichen
  Next i
 Print #fHandle, TabellenEnde      'Ende der Tabelle
 Close #fHandle

End Sub Function ZelleLesen(Zeile, Spalte) Dim Inhalt, RGB_Code, FormatierungsTags As Variant

   '------------------Wenn die Zelle ein datum enthält, entsprechend formatieren------------------------------
   If VarType(Cells(Zeile, Spalte)) = vbDate Then
       Inhalt = Format(Cells(Zeile, Spalte), "dd.mm.yyyy")
   Else
       Inhalt = Cells(Zeile, Spalte)
   End If
   '------------------Wenn Zelle leer, Space einstellen für korrekte Darstellung im Wiki----------------------
   If Inhalt = "" Then Inhalt = " "
   '------------------Zeilenumbrüche innerhalb der Zelle durch Space ersetzen---------------------------------
   While InStr(1, Inhalt, Chr(10)) <> 0
       Inhalt = Mid(Inhalt, 1, InStr(1, Inhalt, Chr(10)) - 1) & " " & Mid(Inhalt, InStr(1, Inhalt, Chr(10)) + 1)
   Wend
   '------------------Textinhalt der Zelle auf Fett bzw. kursiv formatieren------------------------------------
   If ActiveSheet.Cells(Zeile, Spalte).Font.Bold = vbTrue And ActiveSheet.Cells(Zeile, Spalte) <> "" Then
       Inhalt = "" & Inhalt & ""
   End If
   If ActiveSheet.Cells(Zeile, Spalte).Font.Italic = vbTrue And ActiveSheet.Cells(Zeile, Spalte) <> "" Then
       Inhalt = "" & Inhalt & ""
   End If
   '------------------Hintergrundfarbe der Zelle in Wiki-Tags umsetzen-----------------------------------------
   If Hex(ActiveSheet.Cells(Zeile, Spalte).Interior.Color) <> "FFFFFF" Then
       RGB_Code = Format(Hex(ActiveSheet.Cells(Zeile, Spalte).Interior.Color), "000000")
       While Len(RGB_Code) < 6
           RGB_Code = "0" & RGB_Code
       Wend
       FormatierungsTags = """" & "style=background-color:#" & RGB_Code & ";" & """"
   Else
       FormatierungsTags = ""
   End If
   '------------------Horizontale Textausrichtung der Zelle in Wiki-Tags umsetzen------------------------------
   If ActiveSheet.Cells(Zeile, Spalte).HorizontalAlignment = xlCenter Then
       FormatierungsTags = "align=" & """" & "center" & """" & FormatierungsTags
   End If
   If ActiveSheet.Cells(Zeile, Spalte).HorizontalAlignment = xlRight Then
       FormatierungsTags = "align=" & """" & "right" & """" & FormatierungsTags
   End If
   '------------------Zelleintrag zusammensetzen---------------------------------------------------------------
   ZelleLesen = Delimeter & FormatierungsTags & Delimeter & Inhalt

End Function