Variable definieren und in anderem Sub verwenden
Aelsbeth
seit einiger Zeit recherchiere ich schon mit wachsender Freude in diesem Forum. Meine Excel-Kenntnisse sind ausreichend gut bis ein bisschen besser, aber mit VBA hapert es schon ziemlich. Weil ich ein sehr umfangreiches Tool erstellen muss habe ich mir die Codes mehr oder minder "zusammengeklaut".
Jetzt bin ich aber an dem Punkt, an dem es droht unübersichtlich zu werden, und da trau ich mich mal, hier zu fragen.
Folgendes Problem: Ich muss ein Datenblatt aus mehreren anderen erstellen und formatiere es dafür erst mal entsprechend in VBA. Wenn ich das alles einzeln immer schön hintereinander wegschreibe funktioniert es auch schon sehr fein. Nur möchte ich nicht geschätzte 70 Seiten Code haben und dachte mir daher, dass ich das in kleine Subs aufteile und nur das, was sich ändert dann als Variable übergebe. Klappt aber nicht :-(
Was ist falsch?
'Blatt formatieren
Sub Vorbereiten()
Dim Modul As String
Dim ZellA As Integer
Dim ZellE As Integer
Range(Cells(9, 2), Cells(1000, 120)).Font.name = "Arial"
Range(Cells(9, 2), Cells(1000, 120)).Font.Size = 8
Modul = "Beispiel"
Ueberschr1
End Sub
'Überschrift Module
Sub Ueberschr1()
Dim Modul As String
Range(Cells(10, 2), Cells(10, 14)).Interior.ColorIndex = 55
Cells(10, 2).Font.Bold = True
Cells(10, 2).Font.ColorIndex = 2
Cells(10, 2).Value = Modul
Rows("11:11").RowHeight = 4.5
End Sub
Farbe und Größen werden alle fein übernommen, nur eben der Text "Beispiel" nicht.
Bin um jede Hilfe dankbar :-)
Gruß Aelsbeth
Windows XP, Office 2003
Anzeige