Thema Datum  Von Nutzer Rating
Antwort
Rot Markierte Zeilen über Makro Verknüpfen
 18.07.2014 10:01:29 Paulo Borges
NotSolved

Ansicht des Beitrags:
Von:
Paulo Borges		 Datum:
18.07.2014 10:01:29		 Views:
2376		 Rating:
     
Antwort:
  Ja
Thema:
Markierte Zeilen über Makro Verknüpfen

Hallo an Alle,

Ich benutze folgenden Code um Zeilen zu verknüpfen.

Wo bei in der ersten Spalte eine Nr steht und in der Zweiten Spalte die Nr von der ersten Splate mit der ich die Zeile Verknüpfen will.

Das Problem, das manchmal auftritt  ist unerklärbar und zwar, schreibt er mir weiterhin die Formeln in die Zeilen nach dem die Makro gelaufen ist.

Das Seltsame ist das es nur manchmal auftritt.


Liegt es Vileicht am Code?? Weis nicht wo der Fehler sein kann.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub ConectLink()
    Dim a As Range
    Dim LZeile As String
    Dim Bereich As Range
    LZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    On Error Resume Next
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
        Set Bereich = ThisWorkbook.Sheets("K").Range("C40:C" & LZeile)
        For Each a In Bereich
            If a <> Empty Then
                If a.Offset(0, -1).Value <> a.Value Then
                    Range(a.Offset(0, 10), a.Offset(0, 17)).FormulaR1C1 = "=VLOOKUP(RC3,R40C2:R" & LZeile & "C20,R39C,0)"
                    Range(a.Offset(0, 10), a.Offset(0, 17)).Interior.ColorIndex = 43
                Else
                
                End If
            Else
            
            End If
        Next
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
    Set Bereich = Nothing
End Sub
 
----------------------------
 
Sub DisconectLink()
    Dim a As Range
    Dim LZeile As String
    Dim Bereich As Range
    LZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
        Set Bereich = ThisWorkbook.Sheets("K").Range("C40:C" & LZeile)
        For Each a In Bereich
            If a <> Empty Then
                If a.Offset(0, -1).Value <> a.Value Then
                    Range(a.Offset(0, 10), a.Offset(0, 17)).ClearContents
                    Range(a.Offset(0, 10), a.Offset(0, 17)).Interior.ColorIndex = 0
                Else
                
                End If
            Else
            
            End If
        Next
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
    Set Bereich = Nothing
End Sub

 

 

Vielen Dank für die Hilfe

Paulo

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Markierte Zeilen über Makro Verknüpfen
 18.07.2014 10:01:29 Paulo Borges
NotSolved