Microsoft Excel

Herbers Excel/VBA-Archiv

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

unzulässiger oder nicht ausreichend definierter Ve

    Betrifft: unzulässiger oder nicht ausreichend definierter Ve von: Rolf
    Geschrieben am: 01.09.2003 15:46:07

    Nach Test habe ich folgenden Fehler:
    Nach Selection.Copy:

    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


    Sub Mitglieder_alle_Kanal_neu_kopieren()
    '
    ' Mitglieder_alle_Kanal_neu_kopieren Makro
    ' Makro am 31.08.2003 von Rolf aufgezeichnet
    '
    Selection.Copy
    'Hier kommt der Fehler
    Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy 
    
    'An dieser Stelle möchte nur die Zelle(C3) markieren, weil dort der Name steht
    'die gesamte Adresse steht aber in Zeile(B3:H3)
    
    'dieser Teil funktioniert
        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: unzulässiger oder nicht ausreichend definierter Ve von: K.Rola
    Geschrieben am: 01.09.2003 15:59:03

    Hallo,

    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

    Gruß K.Rola


      


    Betrifft: AW: unzulässiger oder nicht ausreichend definierter Ve von: Martin Beck
    Geschrieben am: 01.09.2003 16:21:53

    Hallo Rolf,

    wieso bleibst Du nicht im ursprünglichen Thread???

    So müßte es gehen:

    Sub Mitglieder_alle_Kanal_neu_kopieren()
        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
    


    Gruß
    Martin Beck


      


    Betrifft: AW: unzulässiger oder nicht ausreichend definierter Ve von: Rolf
    Geschrieben am: 01.09.2003 19:38:46

    Gruss Rolf an Martin Beck und Hajo Zi
    Jetzt läuft es
    Hab es sogar verstanden.
    Eure Antwort war gut, schnell und vor allem, vollständig!


      


    Betrifft: OT Info von: PeterW
    Geschrieben am: 02.09.2003 01:24:06

    Hallo Martin,

    welchen "ursprünglichen" Thread meinst du? Dies ist (war?) inzwischen der vierte. :-(

    Gruß
    Peter


      


    Betrifft: AW: Mehrfachthread von: Martin Beck
    Geschrieben am: 02.09.2003 10:28:23

    Hallo Peter,

    ich meinte den hier: https://www.herber.de/forum/messages/302730.html

    Wenn ich es richtig sehe, hast Du dort ja auch *meine* Lösung gepostet, also wieder mal unnötige Doppelarbeit. Manche Fragende kapieren es leider nie :-(

    Gruß
    Martin Beck