Hallo Leute,

ich habe eine Frage über Hilfezelle. Ich habe eine Excel Tabelle (von B2 bis Q7), erste Zeile ist Titel (B1 bis Q1). Die Spalte A habe ich freigelassen, die möchte ich als Hilfszelle definieren, damit ich jene Zeile für VBA markieren kann, welche in einer anderen Excel-Datei(Email.xls) kopiert werden soll. Diese Datei verschicke ich später als Anhang per Email weiter. Alles funktioniert super, bis auf die Hilfszelle Bestimmung. Ich habe mit Farbe probiert, es funktioniert nicht. Weiß aber nicht wie es mit Checkbox oder sonst was funktioniert. Kann jemand mir bitte ein Tipp geben?

P.S. bis jetzt steht im Code, dass Zeile 2 bis 5 rüberkopiert werden soll (hardcoded), ich möchte aber selber bestimmen, welche Zeile genau. Die Zeilen können auch nicht hintereinandern liegen.

Vielen Dank, anbei einpaar Zeichen von mir:)

Sub Makro7()
'
' Makro7 Makro
Dim Zelle As Integer, Spalte As Integer, ZelleK As Integer

Zelle = 2
Spalte = 2
'ZelleK = 2
ActiveWorkbook.Save
Workbooks("Registrierung.xlsm").Worksheets("Liste").Activate

Farbe = Workbooks("Registrierung.xlsm").Worksheets("Trackingliste").Cells(Zelle, Spalte).Interior.ColorIndex
If Farbe > 0 Then
    Range("B1:Q1").Select
    Range("B1:Q1", "B5:Q5").Select
    Range("B5").Activate
    Selection.Copy
   
    Range("A1").Select
ActiveSheet.Cells(Rows.Count, ActiveCell.Column).Select
If IsEmpty(ActiveCell) Then
ActiveCell.End(xlUp).Select
aH = ActiveCell.Row
a = aH + 1
b = ActiveCell.Column
End If
End If

    Workbooks.Open Filename:="P:\Neu\Email.xls"
    Sheets("Liste").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    With Selection.Interior
        .Pattern = xlNone
        '.TintAndShade = 0
        '.PatternTintAndShade = 0
    End With
    ActiveWorkbook.Save
      
   
    Dim outApp As Object
    Set outApp = CreateObject("Outlook.Application")
     Set outmail = outApp.CreateItem(0)
   With outmail
        'Empfänger
       .To = "xx@info.com"
      .CC = "yy@info.com"
      ' .BCC = ""
        'Betreff
        .Subject = "Eingang"
        'Nachricht
        .Body = "Hallo Frau XX" & Chr(13) & _
                "Anbei ein eingegangenen Fall." & Chr(13) & _
                "Viele Grüße..." & Chr(13) & Chr(13)
        'Lesebestätigung aus
        .ReadReceiptRequested = True
        'Dateianhang
        .Attachments.Add "P:\Neu\Email.xls"
        .Display
   End With
    Set outApp = Nothing
End Sub