Roberto at 11:21, 13 September 2012

2012-09-13T11:21:46Z

Philipp at 11:07, 13 September 2012

2012-09-13T11:07:08Z

Philipp at 17:12, 18 February 2008

2008-02-18T17:12:33Z

Philipp: New page: ==Beschreibung== Das ist eine Vorversion eines VBA-Makro für Excel. Damit kann jede Excel-Tabelle sofort ohne Umwege in eine Textdatei geschrieben werden, welche dann im Wiki einfach nur ...

2008-02-18T17:05:14Z

New page: ==Beschreibung== Das ist eine Vorversion eines VBA-Makro für Excel. Damit kann jede Excel-Tabelle sofort ohne Umwege in eine Textdatei geschrieben werden, welche dann im Wiki einfach nur ...

New page

==Beschreibung==
Das ist eine Vorversion eines VBA-Makro für Excel. Damit kann jede Excel-Tabelle sofort ohne Umwege in eine Textdatei geschrieben werden, welche dann im Wiki einfach nur eingefügt werden muss.<br/>

== Anleitung zum VBA-Makro ==
''Im Prinzip:'' Einfach in einem Modul im VBA-Editor einfügen und starten.<br/>
Die folgende Anleitung kann für andere Excel-Versionen leicht abweichen:
# Mit Excel die Datei öffnen, die umgewandelt werden soll
# Den VBA-Editor öffnen (Menü: Extras/Makro/Visual-Basic-Editor) oder 'Alt-F11'
# In der linken Spalte sind die geöffnetet Dokumente angezeigt
# Dort auf 'VBA-Projekt' (mit dem Namen des aktuellen Dokuments, also nicht bei Eurotools!) mit der rechten Maustaste hinklicken
# Im Kontextmenü Einfügen/Modul wählen
# Im rechten grossen Fenster erscheint eine leere weisse Seite (evtl. steht oben Option Explicit)
# Den gesamten Quelltext unten kopieren und auf diese leere weisse Seite einfügen
# Das Makro ausführen (Die Variablen Startspalte, Startzeile, Endspalte, Endzeile und Dateiname werden automatisch bei jedem Start abgefragt)

==VBA-Makro==
<code>

'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
<nowiki>Inhalt = "'''" & Inhalt & "'''"</nowiki>
End If
If ActiveSheet.Cells(Zeile, Spalte).Font.Italic = vbTrue And ActiveSheet.Cells(Zeile, Spalte) <> "" Then
<nowiki>Inhalt = "''" & Inhalt & "''"</nowiki>
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

@@ Line 68: / Line 68: @@
       '------------------Zeilenumbrüche innerhalb der Zelle durch HTML-Zeilenumbrüche ersetzen---------------------------------
       While InStr(1, Inhalt, Chr(10)) <> 0
-          Inhalt = Mid(Inhalt, 1, InStr(1, Inhalt, Chr(10)) - 1) & "<br/>" & Mid(Inhalt, InStr(1, Inhalt, Chr(10)) + 1)
+          Inhalt = Mid(Inhalt, 1, InStr(1, Inhalt, Chr(10)) - 1) & "<nowiki><br/></nowiki>" & Mid(Inhalt, InStr(1, Inhalt, Chr(10)) + 1)
       Wend
       '------------------Textinhalt der Zelle auf Fett bzw. kursiv formatieren------------------------------------

← Older revision		Revision as of 17:12, 18 February 2008
Line 97:		Line 97:
	ZelleLesen = Delimeter & FormatierungsTags & Delimeter & Inhalt		ZelleLesen = Delimeter & FormatierungsTags & Delimeter & Inhalt
	End Function		End Function
		+
		+	[[Category:Content transformation]]

@@ Line 66: / Line 66: @@
       '------------------Wenn Zelle leer, Space einstellen für korrekte Darstellung im Wiki----------------------
       If Inhalt = "" Then Inhalt = " "
-      '------------------Zeilenumbrüche innerhalb der Zelle durch Space ersetzen---------------------------------
+      '------------------Zeilenumbrüche innerhalb der Zelle durch HTML-Zeilenumbrüche 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)
+          Inhalt = Mid(Inhalt, 1, InStr(1, Inhalt, Chr(10)) - 1) & "<br/>" & Mid(Inhalt, InStr(1, Inhalt, Chr(10)) + 1)
       Wend
       '------------------Textinhalt der Zelle auf Fett bzw. kursiv formatieren------------------------------------

Wikify Excel Spreadsheets - Revision history

Roberto at 11:21, 13 September 2012

Philipp at 11:07, 13 September 2012

Philipp at 17:12, 18 February 2008

Philipp: New page: ==Beschreibung== Das ist eine Vorversion eines VBA-Makro für Excel. Damit kann jede Excel-Tabelle sofort ohne Umwege in eine Textdatei geschrieben werden, welche dann im Wiki einfach nur ...