Hallo Dr. Fagott,
ich hab mir mal Deinen Code angesehen. Ich kann damit echt nix anfangen. Was soll er denn machen?
Sub Schaltfläche1084_BeiKlick()
Dim lngSpalte As Long
Dim lngLetzteSpalte As Long
Dim lngZeile As Long
Dim lngLetzteZeile As Long
lngLetzteZeile = 50 //eingabe der zeilen
lngLetzteSpalte = 256 //eingabe der spalten
For lngSpalte = 2 To lngLetzteSpalte
For lngZeile = 6 To lngLetzteZeile
Worksheets(„hilfstabelle“).Cells(lngZeile, lngSpalte).Value = „“
If Trim(Cells(lngZeile, lngSpalte).Text) „“ Then
Select Case LCase(Cells(lngZeile, lngSpalte).Text)
Case Is = „u“
Case Is = „k“
Case Is = „ÜA“ ’funktioniert wg. LCase nie
Case Else
If Cells(lngZeile, lngSpalte).Font.Italic Then
Worksheets(„hilfstabelle“).Cells(lngZeile, lngSpalte).Value = „geplant“
Else
Worksheets(„hilfstabelle“).Cells(lngZeile, lngSpalte).Value = „fest“
End If
End Select
End If
Next 'lngZeile
Next 'lngSpalte
End Sub
Die wenigen Dinge, die mir auffallen, sind:
- kommentiert wird in VBA mit ', nicht mit // wie in Java
- es laufen tausend Prüfungen, aber deren Ergebnis wird nie ausgewertet
Bitte genauere Erklärung, was Du mit der Schaltfläche1084 (allein der Name…) eigentlich bewirken willst.
M.