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