Thema Datum  Von Nutzer Rating
Antwort
12.03.2020 15:31:56 Brülisauer
NotSolved
Blau Hilfe bei unbekantem Fehler
 17.03.2020 09:30:15 UweD
NotSolved
17.03.2020 09:33:55 UweD
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
17.03.2020 09:30:15		 Views:
556		 Rating:
     
Antwort:
  Ja
Thema:
Hilfe bei unbekantem Fehler

Hallo

Ohne Datei wird das schwierig.

Eine Sache ist mir aber aufgefallen

Bei sis = Application.WorksheetFunction.CountA(Range("L1:BZ1")) solltest du die Blattangabe ergänzen.

 

Dazu die Reihenfolge ändern

 

Sub heurs()
    
    'copiage des heurs normal des semaines
    Dim A As Integer
    Dim sis As Integer
    
    Dim Calcule As Excel.Worksheet, Données As Excel.Worksheet
    Dim RechercheB As Range
    
    
    Set Calcule = Sheets("Calcule des semaines")
    Set Données = Sheets("Données calculations")
    
    sis = Application.WorksheetFunction.CountA(Range("L1:BZ1"))
    
    For A = 1 To sis
        MsgBox A, , "A"
        Set RechercheB = Calcule.Range("C1:BZ1").Find(What:=Données.Cells(1, A + 11))
        Do
            If RechercheB = 0 Then
                Exit Do
            Else
                Données.Cells(2, A + 11).Value = Calcule.Cells(RechercheB).Offset(1, 0).Value
                Exit Do
            End If
        Loop
    Next A
    
End Sub

LG UweD

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.03.2020 15:31:56 Brülisauer
NotSolved
Blau Hilfe bei unbekantem Fehler
 17.03.2020 09:30:15 UweD
NotSolved
17.03.2020 09:33:55 UweD
NotSolved