Excel-Problemchen

hi und hallo,

ich möchte in Excel eine bestimmte anzahl von zahlen ausfüllen. das klappt auch soweit mit dem quelltext:

Sub Anzahl_der_Stäbe()
Dim i, n, t As Integer

For i = 1 To 1
For n = 4 To Range("B1") + 3
If Cells(n, i) = "" Then
Cells(n, i) = "Stab" & " " & n - 3
End If
Next n
Next i
End Sub

allerdings möchte ich gern noch eine wenn-bedingung in der spalte g einfüge und diese soll dann auch der anzahl der stäbe entsprechen und unter der gesamten tabelle soll dann noch die summe stehen. kann mir da jemand weiter helfen?

meine zweites problem was ich hab ist, das ich aus den spalten b bis d gern daten (stehen untereinander) auslesen möchte und zwar horizontal auf ein neues tabellenblatt. gibts da ne lösung für? (problem hat nix mit dem ersten problem zu tun)

mfg masterofhellfire

also es dreht sich um folgendes bei meinem ersten problem:

ich möchte die anzahl der stäbe in einem statischen system in den zellen von der spalte a angezeigt haben. ich gebe oben ein wie viele stäbe ich habe und da sollen diese runterwärts erscheinen. also:

A.........................B....................C
...........................................formel die auf die anzahl der stäbe verteil
...........................................werden so
Anzal der Stäbe:...2

Stab 1
.Stab 2
.
.
.

Problem zwei:

ich hab einen preisspiegel erstellt und der kopf der tabelle soll mit den angaben der bieter gefüllt werden (gewerk/ Bezeichnung/ Firmenname)

diese angaben sind ein einem andern tabellenblatt. allerdings sind da die angaben zu den bietern nicht auf die spalten ver teilt sondern in zeilen.
bsp.

Tabelle 1

a....................b........................c
gewerk bezeichnung firmenname

Tabelle 2

a....................b..............c........................d........................e
.................................gewerk.................gewerk.............gewerk
.................................bezeichnung..........bezeichnung......bezeichnung
.................................Frimename............Firmenname......firmenname

Leistung menge

ich hoffe ich konnte meine zwei problem etwas deutlicher darstellenum besser hilfe zu bekommen. trozdem danke an die die schon geantwortet haben.