Integration Notizfunktion beim Excel

Hallo,
folgende Situation: Ich habe einen Ordner erstellt und darin eine Excel-Tabelle
archiviert. Die Excel-Tabelle ist ein Projekterfassungstool. In jeder Zeile
ist ein dem Datum entsprechendes Projekt notiert. Die Spalte A ist für die VBA-Programmierung reserviert. Ich bräuchte eine VBA-Lösung, welche bei einem
Doppelklick in Zelle A1 ein Notizfenster neu erstellt und dann beim schliessen in dem Ordner, wo die Excel-Tabelle enthalten ist, abspeichert. Und das ganze soll
bis Zelle A500 programmiert sein. Man kann dann bis zu 500 Notizen für jede Zeile
erstellen, also für jede Zeile eine Notiz. Die Notizen sollen mit dem Namen z.B.
A1.txt, A2.txt usw. gespeichert werden.
Für Eure Hilfe wäre ich sehr dankbar.
Mit besten Grüßen
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strFile As String Dim dummy If Not Intersect(Target, [A1:A500]) Is Nothing Then Cancel = True strFile = ThisWorkbook.Path & "\" & Target.Address(0, 0) & ".txt" Close #1 Open strFile For Append As #1 'erstellt die txt-Datei wenn nicht vorhanden Close #1 dummy = Shell("NOTEPAD " & strFile, vbNormalFocus) End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' erstellt von Hajo.Ziplies@web.de 12.11.02 ' x in die Zelle Dim RaBereich As Range Set RaBereich = Range("I5:I300,J5:J300,K5:K300,L5:L300") If Intersect(Target, RaBereich) Is Nothing Then Exit Sub ' Abbruch, wenn Aktion nicht im Zielbereich Application.EnableEvents = False Cancel = True If Target.Value = "X" Then Target.Value = "" Else Target.Value = "X" End If Application.EnableEvents = True Set RaBereich = Nothing End Sub

Hallo Markus!
Bei "VBA gut" sollte das kombinieren der Codes doch kein Problem sein;-)


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strFile As String
Dim dummy
'   erstellt von Hajo.Ziplies@web.de 12.11.02
'   x in die Zelle
Dim RaBereich As Range
Set RaBereich = Range("I5:I300,J5:J300,K5:K300,L5:L300")
If Not Intersect(Target, RaBereich) Is Nothing Then
' Abbruch, wenn Aktion nicht im Zielbereich
Application.EnableEvents = False
Cancel = True
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End If
If Not Intersect(Target, [A1:A500]) Is Nothing Then
Cancel = True
strFile = ThisWorkbook.Path & "\" & Target.Address(0, 0) & ".txt"
Close #1
Open strFile For Append As #1 'erstellt die txt-Datei wenn nicht vorhanden
Close #1
dummy = Shell("NOTEPAD " & strFile, vbNormalFocus)
End If
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Integration Notizfunktion beim Excel

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread