Thema Datum  Von Nutzer Rating
Antwort
Rot Ganze Zeilen Kopieren
 16.10.2012 07:48:00 Gast0815
NotSolved
16.10.2012 13:17:43 Dekor
NotSolved
16.10.2012 14:21:28 Gast16704
NotSolved
21.10.2012 13:10:13 Gast15624
NotSolved
31.10.2012 15:24:44 Gast45365
NotSolved

Ansicht des Beitrags:
Von:
Gast0815		 Datum:
16.10.2012 07:48:00		 Views:
1711		 Rating:
     
Antwort:
  Ja
Thema:
Ganze Zeilen Kopieren

Moin Experten

Bin schon länger auf der Suche nach einer Lösung aber habe noch keine gefunden.

Das Problem, ich möchte ganze Zeilen die entweder über den Filter oder per Hand

ausgewählt sind Kopieren. Und dann noch mit einer Fehlermeldung wenn keine

Zeile markiert ist.

Was ich habe geht leider nur mit einer Zeile.

 'Prüfen ob ganze Zeilen markiert wurden
    Dim sRow As String
    sRow = Right(Selection.Rows(1).Address, 5)
    While (Val(sRow) = 0)
    sRow = Right(sRow, Len(sRow) - 1)
    Wend
    If ActiveSheet.Rows(Val(sRow)).Cells.Count <> Selection.Cells.Count Then
        MsgBox "keine komplette Zeile markiert"
        Exit Sub
    End If

Könnt Ihr mir dabei Helfen.

Gruß
Michael

 

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 Ganze Zeilen Kopieren
 16.10.2012 07:48:00 Gast0815
NotSolved
16.10.2012 13:17:43 Dekor
NotSolved
16.10.2012 14:21:28 Gast16704
NotSolved
21.10.2012 13:10:13 Gast15624
NotSolved
31.10.2012 15:24:44 Gast45365
NotSolved