Dokumente aus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngCol As Range, rngXCell As Range Dim rngLastRowCell As Range If Intersect(Target, Range("G2,I2,K2")) Is Nothing Then Exit Sub End If With ActiveCell Set rngLastRowCell = Cells(Rows.Count, .Column).End(xlUp) Set rngCol = Range(Cells(4, .Column), rngLastRowCell).SpecialCells(xlCellTypeConstants) End With rngCol.Select 'Treffer werden markiert For Each rngXCell In rngCol If Cells(rngXCell.Row, 4) = "IN BEARBEITUNG" Then MsgBox "Das Kapitel '" & Cells(rngXCell.Row, 3) & "' befindet sich noch in _ Bearbeitung!", vbInformation End If Next End Sub

Hallo Martin vielen Dank für deine Antwort.
"1. In welches Verzeichnis und unter welchem Namen soll die neu erzeugte Worddatei abgelegt werden? (Ein "Speichern unter"-Dialog wäre auch möglich, wenn gewünscht)"
Das Öffnen einer Vorlage und das "Speichern unter" könnte ich mit meine VBA Wissen noch hinbekommen. Mir geht es um das Heraussuchen der betroffenen Kapitel Hier hatte ich die größten Probleme
"2. Sollen die in Bearbeitung befindlichen Dateien trotzdem beim Zusammensetzen der Worddatei berücksichtigt werden? (Bei der MsgBox könnte auch eine Ja/Nein-Abfrage erfolgen, ob die jeweiligen Kapitel berücksichtigt werden sollen)."
Die Kapitel sollen immer berüchsichtig werden, daher ist eine weitere Abfrage nicht notwenig. Sie dient nur als Info.
Wie hast du die betroffen Kapitel in dieser Formel untergebracht? ich habe veruscht über "Selection.Row" die betroffenen Kapitel auszulesen.
Ich wollte nicht den Eindruck erwecken, dass ich kein interesse mehr an diesem Beitrag haben.

Hallo Vain,
ich habe jetzt noch eine Zeile ergänzt, um die Dateinamen im Direktbereich auszugeben:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngCol As Range, rngXCell As Range
Dim rngLastRowCell As Range
If Intersect(Target, Range("G2,I2,K2")) Is Nothing Then
Exit Sub
End If
With ActiveCell
Set rngLastRowCell = Cells(Rows.Count, .Column).End(xlUp)
Set rngCol = Range(Cells(4, .Column), rngLastRowCell).SpecialCells(xlCellTypeConstants)
End With
rngCol.Select 'Treffer werden markiert
For Each rngXCell In rngCol
If Cells(rngXCell.Row, 4) = "IN BEARBEITUNG" Then
MsgBox "Das Kapitel '" & Cells(rngXCell.Row, 3) & "' befindet sich noch in  _
Bearbeitung!", vbInformation
End If
'Ausgabe der Dateinamen
Debug.Print Evaluate(Split(Mid(Cells(rngXCell.Row, 5).Formula, 12), ",")(0))
Next
End Sub

Ist deine Frage damit beantwortet?
Viele Grüße
Martin

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread