Wenn Zelle nicht leer soll automatisch ein Blatt
17.06.2005 12:24:22
angela
ich möchte Zellen in ein anderes Blatt kopieren, vorher soll eine Prüfung stattfinden, die in einer Zelle nachschaut, ob diese schon gefüllt ist, ist das nicht der fall, soll ein vorlagenblatt kopiert werden und dann erst die daten eingefügt werden.
Die Module werden über einen Button
Meine Probleme, wenn das feld leer ist macht er nichts, wenn was drin stehr dann kopiert er zwar das erstemal die vorlage, aber dannach nicht mehr und er fügt keine Daten ein, weder .... .
Private Sub CommandButton2_Click()
Call Datenimport
Call Importformatieren
Call NeuesTabBlatt
Call importkopieren
End Sub
Sub NeuesTabBlatt()
If Sheets(2).Range("IQ10").End(xlUp) Then
Sheets("Daten_V.").Copy after:=Sheets(1)
End If
End Sub
wo setze ich hier ein Count ein ?
Sub importkopieren()
Sheets("Import").Select
Columns("L:Q").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(2).Select
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
was muß ich tun ?