AW: Fs-Planer
22.02.2004 13:28:26
Dieter Klemke
Hallo Hans,
zu deinen ersten beiden Fragen (im Blatt "Fs Eintrag") habe ich jeweils einen Vorschlag:
1. Du schreibst in den Code-Modul des Tabellenblattes den folgenden Code:
(In den Code-Modul des Tabellenblattes gelangst du, wenn du im Projektexplorer einen Doppelklick auf das Tabellenblatt machst.)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsB As Worksheet ' B für Berechnung
Dim wsF As Worksheet ' F für Fs Eintrag
Dim zeile As Long
If Target.Cells.Count > 1 Then Exit Sub
Set wsB = ThisWorkbook.Worksheets("Berechnung")
Set wsF = ThisWorkbook.Worksheets("Fs Eintrag")
If Target.Column = 5 Then
zeile = Target.Row
wsB.Cells(zeile, 5) = wsF.Cells(zeile, 4) & wsF.Cells(zeile, 5)
End If
End Sub
2. Einen Kommentar einschließlich entsprechender Formatierung fügst du nach folgendem Schema ein:
Sub Kommentar_einfügen()
Dim spalte As Long
Dim ws As Worksheet
Dim zeile As Long
Set ws = ThisWorkbook.Worksheets("Fs Eintrag")
zeile = 23
spalte = 3
With ws.Cells(zeile, spalte)
.ClearComments
.AddComment
.Comment.Text Text:="Rosendienstag"
With .Comment.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 12
End With
End With
End Sub
Bei deiner dritten Frage weiss ich nicht, auf Grund welcher Aktion die Werte automatisch eingetragen werden sollen.
MfG
Dieter