Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfszelle für Zeilebestimmung, welche kopiert werden soll
25.07.2011 13:00:11 Way
NotSolved
25.07.2011 13:18:38 Dekor
Solved
25.07.2011 13:36:40 Gast56775
Solved
25.07.2011 22:03:47 Dekor
Solved
26.07.2011 08:00:13 Way
Solved
26.07.2011 11:39:44 way
Solved

Ansicht des Beitrags:
Von:
Way
Datum:
25.07.2011 13:00:11
Views:
1273
Rating: Antwort:
  Ja
Thema:
Hilfszelle für Zeilebestimmung, welche kopiert werden soll

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


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
Rot Hilfszelle für Zeilebestimmung, welche kopiert werden soll
25.07.2011 13:00:11 Way
NotSolved
25.07.2011 13:18:38 Dekor
Solved
25.07.2011 13:36:40 Gast56775
Solved
25.07.2011 22:03:47 Dekor
Solved
26.07.2011 08:00:13 Way
Solved
26.07.2011 11:39:44 way
Solved