Fehler im VBA-Modul
10.01.2004 11:04:29
Ralph Papp
habe ein VBA Modul für die Erstellung einer Art Datenbank von Berti bekommen,
nun habe ich das Problem das der Eintrag erst in der Zelle A23824:L23824 beginnt, obwohl ab der Zelle A4:L4 keine Daten, Formatierungen... vorhanden sind.
Kann ich dem Modul sagen das es bei A4 mit dem Eintragen Beginne soll?
Ist es möglich Zellvormatierungen vorzunehmen? (Rahmen, Format...)
Ein schönes Wochenende
Ralph Papp
Sub R_Daten_eintragen()
Dim Zeile
'nur wenn in P2 oder Q2 etwas drinsteht dann eintragen
If [p2] <> "" Or [q2] <> "" Then
'Blattschutz aufheben
ActiveSheet.Unprotect "123"
'letzte benutzte Zeile ermitteln + 1
Zeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row + 1
'Daten eintragen
Cells(Zeile, 1) = [p2]
Cells(Zeile, 2) = [q2]
Cells(Zeile, 3) = [r2]
Cells(Zeile, 4) = [s2]
Cells(Zeile, 5) = [t2]
Cells(Zeile, 6) = [u2]
Cells(Zeile, 7) = [v2]
Cells(Zeile, 8) = [w2]
Cells(Zeile, 9) = [x2]
Cells(Zeile, 10) = [y2]
Cells(Zeile, 11) = [z2]
Cells(Zeile, 12) = [aa2]
'Eingaben löschen
[p2:aa2] = ""
'letzte Zeile in sichtbaren Bereich holen
Cells(Zeile, 1).Select
Else
MsgBox "Bitte im Rapport alle Daten eintragen"
End If
'Blattschutz aktivieren
ActiveSheet.Protect "123"
End Sub