Excel-Zelle wird per VBA gefüllt = #Wert!

'[1GM01] No FDD in Gate 3 [2GM01] Milestone 'Mech. Compl. FC' not filled [2GM02] Milestone 'Techn. Compl. FC' not filled [2GM03] Milestone 'All Invoices received FC' not filled [3FF01] Forecast not filled

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier ein Auszug aus dem Makro mit nur einem Hinweis. Davor und danach gibt es weitere Meldungen.


Private Sub CommandButton1_Click()
Dim wks1, wks2, wks3 As Worksheet
Dim toFind As String
Dim found As Range
Dim LastRow As Long
Set wks1 = Worksheets("Project List")
Set wks2 = Worksheets("Forecast")
Set wks3 = Worksheets("CapPlan")
'Für mehr Speed auf manuelle Berechnung stellen und ScreenUpdate abschalten
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
'*** Wo ist die Projektliste zu Ende? ***
LastRow = wks1.Range("B65536").End(xlUp).Row 'Unterste Zeile feststellen
'wo ist die Spalte 'Quality Check'?
iCol_QC = Application.Match("Quality Check", wks1.Rows(4), 0)
For I = 5 To LastRow
'No FDD in Gate 3   *** BEISPIEL EINER MELDUNG ***
If wks1.Cells(I, Application.Match("Item Status", wks1.Rows(4), 0)) >= "b. Plan" _
And wks1.Cells(I, Application.Match("Item Status", wks1.Rows(4), 0))

wks1.Cells(I, iCol_QC) ="'" For I = 5 To LastRow 'No FDD in Gate 3 *** BEISPIEL EINER MELDUNG *** If wks1.Cells(I, Application.Match("Item Status", wks1.Rows(4), 0)) >= "b. Plan" _ And wks1.Cells(I, Application.Match("Item Status", wks1.Rows(4), 0))

Hi Uwe,
das Hochkomma kommt aus einer SAP-BW-Query. Wie & warum kann ich nicht erklären ...
Ich konnte nun das Problem weiter einkreisen:
- Nicht die Schleife ist die Ursache meines Problems.
- Ich habe bisher die Zelle mit einem Zeilenumbruch (Zeichen 10) begonnen ...
- ... und am Ende des Skripts in einer weiteren Schleife den ersten Zeilenumbruch wieder rausgelöscht

'Aufräumen: erste Leerzeile in QC-Feldern löschen
For i2 = 5 To LastRow
'wks1.Cells(i2, iCol_QC) = Application.Substitute(wks1.Cells(i2, iCol_QC), Chr(10), "", 1)
Next i2

- Genau HIERBEI ist der Fehlerwert #Wert! bei ca. 1% der Projekte entstanden
- Ich kann nicht sagen warum
- Ich verzichte nun auf den führenden Zeilenumbruch und hänge ihn an jede einzelne Meldung hinten an.
- Somit spare ich mir die auffällig gewordene Funktion 'Application.Substitute'
Vielen Dank, das Thema ist erledigt :-)

Beliebteste Forumthreads (12 Monate)

Excel-Zelle wird per VBA gefüllt = #Wert!

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel-Zelle wird per VBA gefüllt = #Wert!

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread