Hallo
Etwas einfacher
Sub EURIBOR()
Dim woSuchen As Variant, wasSuchen As Variant
Dim rngSuchen As Range
Dim n As Integer, Sprache As Integer
Dim Antwort
Dim msgText() As String
ReDim msgText(1 To 6, 1 To 3, 1 To 2)
' Sprache festlegen. in diesem Beispiel Deutsch
Sprache = 2
' Texte und Titel für MsgBox 1 bis 6
msgText(1, 1, 1) = "Euribor 2Y could not be found. Please check the columnnames of the sourcefile"
msgText(1, 2, 1) = "Euribor 2Y konnte nicht gefunden werden. Bitte untersuchen Sie Spaltennamen der Quelldatei."
msgText(1, 3, 1) = "Russisch"
msgText(1, 1, 2) = "Caution!"
msgText(1, 2, 2) = "Achtung"
msgText(1, 3, 2) = "Russisch!"
msgText(2, 1, 1) = "Euribor 1Y could not be found. Please check the columnnames of the sourcefile"
msgText(2, 2, 1) = "Euribor 1Y konnte nicht gefunden werden. Bitte untersuchen Sie Spaltennamen der Quelldatei."
msgText(2, 3, 1) = "Russisch"
msgText(2, 1, 2) = "Caution!"
msgText(2, 2, 2) = "Achtung"
msgText(2, 3, 2) = "Russisch!"
msgText(3, 1, 1) = "Share B could not be found. Please check the columnnames of the sourcefile"
msgText(3, 2, 1) = "Share B konnte nicht gefunden werden. Bitte untersuchen Sie Spaltennamen der Quelldatei."
msgText(3, 3, 1) = "Russisch"
msgText(3, 1, 2) = "Caution!"
msgText(3, 2, 2) = "Achtung"
msgText(3, 3, 2) = "Russisch!"
msgText(4, 1, 1) = "Share A could not be found. Please check the columnnames of the sourcefile"
msgText(4, 2, 1) = "Share A konnte nicht gefunden werden. Bitte untersuchen Sie Spaltennamen der Quelldatei."
msgText(4, 3, 1) = "Russisch"
msgText(4, 1, 2) = "Caution!"
msgText(4, 2, 2) = "Achtung"
msgText(4, 3, 2) = "Russisch"
msgText(5, 1, 1) = "Wechselkurs could not be found. Please check the columnnames of the sourcefile"
msgText(5, 2, 1) = "Wechselkurs konnte nicht gefunden werden. Bitte untersuchen Sie Spaltennamen der Quelldatei."
msgText(5, 3, 1) = "Russisch"
msgText(5, 1, 2) = "Caution!"
msgText(5, 2, 2) = "Achtung"
msgText(5, 3, 2) = "Russisch!"
msgText(6, 1, 1) = "Date could not be found. Please check the columnnames of the sourcefile"
msgText(6, 2, 1) = "Date konnte nicht gefunden werden. Bitte untersuchen Sie Spaltennamen der Quelldatei."
msgText(6, 3, 1) = "Russisch"
msgText(6, 1, 2) = "Caution!"
msgText(6, 2, 2) = "Achtung"
msgText(6, 3, 2) = "Russisch!"
' Dimension des Array's (0-5)
wasSuchen = Array("Euribor 2Y", "Euribor 1Y", "Share B", "Share A", "USD/EUR", "Date")
For n = 1 To 6
Set rngSuchen = Range("A1:Z1").Find(wasSuchen(n - 1))
If rngSuchen Is Nothing Then
Antwort = MsgBox(msgText(n, Sprache, 1), vbRetryCancel, msgText(n, Sprache, 2))
' Bei 'Wiederholen' wird Schleife verlassen und die restlichen Abfragen
' nicht mehr durchgeführt. Ist das so gewollt?
If Antwort = vbCancel Then Exit Sub Else GoTo Start
' wenn Schleife durchlaufen werden soll dann
' If Antwort = vbCancel Then Exit Sub
Else
Range(rngSuchen, rngSuchen.End(xlDown)).Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
End If
Next n
' Sprungmaske - Sollte man nicht verwenden. Veraltert und verursachen oft Probleme.
Start:
End Sub
mfg, GraFri
|