schreiben in A-Z Tabellenblätter
07.08.2003 18:37:04
Silke
ich habe mit meiner Freundin folgendes Kleines Programm geschrieben
Sub eingeben()
dim zaehler1, zaehler2, anzzl as integer
dim Titel, Untertitel, medium as string
titel =inputbox("Titel Eingeben:")
untertitel =inputbox("UnterTitel Eingeben:")
medium =inputbox("Medium Eingeben:")
zaehler2=inputbox("Folgen eingeben:")
anzzl=activesheet.usedrange.rows.count
if range("A" & anzzl)<> "" then
anzzl = anzz + 1
end if
for zaeheler1= 1 to zaeheler2
range("A" & anzzl).select
activecell.formula R1C1 =Titel
range("B" & anzzl).select
activecell.formula R1C1 = unterTitel
range("C" & anzzl).select
activecell.formula R1C1 = medium
range("D" & anzzl).select
activecell.formula R1C1 = zaehler1
anzzl = anzzl + 1
next Zaehler
End Sub
Ich habe jetzt meine Tabellen so umbenannt das sie von A-Z geehen und eine Tabelle 0-9 geht, ich möchte si nun in die einzelnen Tabellen schreiben abhängig davon wie der Titel ist, Fängt der titel mit S an soll er in die Tabelle S usw.
Wer kann mir einen Tipp geben wie ich das am besten umschreibe.
Vielen Dank im vorraus
Silke