Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Selection.copy erweitern

    Betrifft: Selection.copy erweitern von: Rolf
    Geschrieben am: 31.08.2003 21:15:33

    Sub Mitglieder_alle_Kanal_neu_kopieren()
    '
    ' Mitglieder_alle_Kanal_neu_kopieren Makro
    ' Makro am 31.08.2003 von Rolf aufgezeichnet
    '
    Selection.Copy
    'An dieser Stelle möchte nur die Zeile(C3) markieren, weil dort der Name steht
    'die gesamte Adresse steht aber in Zeile(B3:H3)
    'von Hand klappt das
    'wie geht das automatisch
        
        With Sheets("Kanalscheine neu")
            Dim Loletzte As Long
            If Range("B145") = "" Then
                Loletzte = .Range("B23").End(xlUp).Row
                Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
            Else
                MsgBox "keine Zelle mehr frei"
            End If
        End With
        
        
        Sheets("Kanalscheine neu").Select
    '
    End Sub
    

      


    Betrifft: AW: Selection.copy erweitern von: PeterW
    Geschrieben am: 31.08.2003 21:34:09

    Sub Antwort()
       'Hallo Rolf, soviel Zeit muss sein
       'auch wenn man es im Code schreibt! :-)
       'ist nicht so ganz einfach
       'die im Code unvollständig
       'versteckte Aufgabenstellung
       'zu entschlüsseln
       'eine Zeile C3 gibt es nicht
       'meinst du Zeile 3?
       'Statt
       Selection.Copy
       'könnte es mit
       Rows(3).Copy
       'klappen
       'Gruß
       'Peter
    End Sub
    



      


    Betrifft: RE: Selection.copy erweitern von: Rolf
    Geschrieben am: 31.08.2003 22:15:28

    kurz zur Erklärung:
    Ich habe eine Umfanreiche Datei mit vielen Tabellenblättern.
    In einem Tabellenblatt stehen alle Daten (Adressen) in Zelle (B3:H130)
    Dies kopiere ich in ein anderes Tabellenblatt, von wo ich Bescheiniungen anfordere.
    Wenn ich jetzt von Hand z.B. die komplette Adresse in der zeile 5 markiere (B5:H5)und dann das Makro starte, klappt es.
    Ich möchte jetzt aber in dieser Zeile nur die Zelle C5 markieren, dort steht der Nachname,es soll aber erweitert werden in die Zellen (B5:H5), weil man sehr aufpassen muss, die richtige markierung zu treffen.






    Sub Mitglieder_alle_Kanal_neu_kopieren()
    '
    ' Mitglieder_alle_Kanal_neu_kopieren Makro
    ' Makro am 31.08.2003 von Rolf aufgezeichnet
    '
    Selection.Copy
    'An dieser Stelle möchte nur die Zeile(C3) markieren, weil dort der Name steht
    'die gesamte Adresse steht aber in Zeile(B3:H3)
    'von Hand klappt das
    'wie geht das automatisch
        
        With Sheets("Kanalscheine neu")
            Dim Loletzte As Long
            If Range("B145") = "" Then
                Loletzte = .Range("B23").End(xlUp).Row
                Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
            Else
                MsgBox "keine Zelle mehr frei"
            End If
        End With
        
        
        Sheets("Kanalscheine neu").Select
    '
    End Sub
    



      


    Betrifft: AW: RE: Selection.copy erweitern von: PeterW
    Geschrieben am: 31.08.2003 22:25:28

    Hallo Rolf,

    du hast C12 markiert, der Bereich B12:H12 wird kopiert

    Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy Destination:=.Cells(Loletzte + 1, 2)

    Gruß
    Peter


      


    Betrifft: AW: RE: RE:Selection.copy erweitern von: Rolf
    Geschrieben am: 01.09.2003 13:43:16

    Nach Test habe ich folgenden Fehler:
    Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy Destination:=.Cells(Loletzte + 1, 2)

    Bei :=.Cells(.....)
    erscheint unzulässiger oder nicht ausreichend definierter Verweis

    Gruss Rolf


      


    Betrifft: AW: RE: RE:Selection.copy erweitern von: PeterW
    Geschrieben am: 01.09.2003 16:53:10

    Hallo Rolf,

    das kann ich nicht nachvollziehen. Folgender Code läuft bei mir fehlerfrei durch.

    Gruß
    Peter

    Sub Mitglieder_alle_Kanal_neu_kopieren()
    '
    ' Mitglieder_alle_Kanal_neu_kopieren Makro
    ' Makro am 31.08.2003 von Rolf aufgezeichnet
    '
    ' überarbeitet am 01.09.2003
    '
    Dim Loletzte As Long
        With Sheets("Kanalscheine neu")
            If Range("B145") = "" Then
                Loletzte = .Range("B23").End(xlUp).Row
                Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy Destination:=.Cells(Loletzte + 1, 2)
            Else
                MsgBox "keine Zelle mehr frei"
            End If
        End With
        
        
        Sheets("Kanalscheine neu").Select
    '
    End Sub
    



     

    Beiträge aus den Excel-Beispielen zum Thema " Selection.copy erweitern"