Makro ändern
22.06.2007 13:29:42
Carola
Da in Spalte 18 ( Spalte R ) Werte stehen legt das Makro die einzutragenden Werte leider immer ans Ende der Tabelle. Wie muss das Makro in diesem Fall geändert werden. Vielen Dank allen Helfern hier !!
Sub Rechteck1_BeiKlick()
Dim Zeile
'nur wenn in C3 und E3 etwas drinsteht dann eintragen
If [c3] "" And [e3] "" Then
'Blattschutz aufheben
ActiveSheet.Unprotect
'letzte benutzte Zeile ermitteln + 1
Zeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row + 1
'Daten eintragen
Cells(Zeile, 2) = [c3]
Cells(Zeile, 3) = [e3]
Cells(Zeile, 4) = [c5]
Cells(Zeile, 5) = [e5]
Cells(Zeile, 6) = [c7]
Cells(Zeile, 7) = [e7]
Cells(Zeile, 8) = [c9]
Cells(Zeile, 9) = [e9]
Cells(Zeile, 10) = [c11]
Cells(Zeile, 11) = [e11]
Cells(Zeile, 12) = [c13]
Cells(Zeile, 13) = [e13]
'Eingaben löschen
[c3:c13] = ""
[e3:e13] = ""
'Datum Heute einsetzen
Range("C3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("E3").Select
'letzte Zeile in sichtbaren Bereich holen
Cells(Zeile, 1).Select
Else
MsgBox "Bitte vollständig eintragen"
End If
'Blattschutz aktivieren
ActiveSheet.Protect
End Sub
Da in Spalte 18 ( Spalte R ) Werte stehen legt das Makro die einzutragenden Werte leider immer ans Ende der Tabelle. Wie muss das Makro in diesem Fall geändert werden. Vielen Dank allen Helfern hier !!