ein sub unterbrechen wenn eine zelle leer ist
30.05.2004 18:14:21
roland_57
ich habe eine tabelle mit namen in spalte 3
es sind aber nur zeile 2 7 9 11 usw bis zeile 19 ausgefuellt
folgenden code wende ich an:
*****
Private Sub CommandButton1_Click() 'tabellen anlegen
Dim i As Integer
For i = 0 To 12 Step 2
Sheets("vorlage").Select
Sheets("vorlage").Copy before:=Sheets(1)
ActiveSheet.Name = Cells(7 + i, 3)
Next i
End Sub
*****
mein code macht das auch richtig legt fuer jeden zeile c7 c9 c11 usw eine tabelle an ..und gibt den namen der jeweiligen Inhalte als tabellennamen.
wenn eine zelle (z. b. c15 leer ist macht er mir aber ein tabellenblatt ohne namen.
wer kann mir sagen wie ich verhindere dass auch fuer die leeren zellen ein blatt angelegt wird ?
schoene pfingsten gruss roland
Anzeige