Bei wert in Spalte zeile A bis P in Neues Blatt
25.02.2009 18:12:34
juergen
Hab da ein kleines Problem.
Ich hab da 2 Tabellen eine mit Eingaben und eine zum Auswerten.
Nun soll das Makro:
Wenn in der Spalte (D) der Tabelle Eingaben eine Wert bzw.eine Zahl steht , dann soll die Zeile von A bis P in die Tabelle Rechentab fortlaufend eingefügt werden.
Auswerten geht aber mit dem Kopieren und einfügen haperts.
Für ein passenden gedankenanstoß wäre ich Euch sehr dankbar.
Gruß
Juergen
Sub Proto()
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim bereich As Range
Dim zelle As Range
Set wks = Worksheets("eingaben")
Set wks1 = Worksheets("rechentab")
Set bereich = wks.Range("d4:d50")
For Each zelle In bereich
If zelle.Value "" Then
Debug.Print zelle.Address
End If
Next zelle
End Sub