Ich muss einen Programmablaufplan (oder ein Schneidermann Diagramm) ertsellne hab aber davon nicht viel Ahnung. Wer kann mir bitte schnell helfen?
Meine aufgabe lautet (das VBA Programm hab ich):
wie kann ich in einem tabellenblatt die Spalten C und D nach zahlen durchsuchen, die Zahlen in diesem Bereich dann "hochstellen", die zahlen können auch in einem text vorkommen. Dies sol bei der Betätigung einer Befehlsschaltfläche passieren und bei einer anderen Schafltfläche wieder rückgängig gemacht werden.
Das Programm sieht so aus:
Private Sub cmdformat_Click()
Dim Zelle As Range
Dim i As Integer
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Column = 3 Or Zelle.Column = 4 Then
If Zelle <> "" Then
For i = 1 To Len(Zelle)
If IsNumeric(Mid(Zelle, i, 1)) Then
Zelle.Characters(Start:=i, Length:=1).Font.Superscript = True
End If
Next i
End If
End If
Next Zelle
End Sub
Private Sub cmdreset_Click()
[C165536].Font.Superscript = False '
End Sub
MfG
Florian
Kommentar