Thema Datum  Von Nutzer Rating
Antwort
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
Rot Ganze Zeilen Kopieren
 31.10.2012 15:24:44 Gast45365
NotSolved

Ansicht des Beitrags:
Von:
Gast45365		 Datum:
31.10.2012 15:24:44		 Views:
977		 Rating:
     
Antwort:
  Ja
Thema:
Ganze Zeilen Kopieren		 
Sub test()
    Dim sRow As String
    Dim srow2 As String
    Dim i As Integer
    sRow = Right(Selection.Rows(1).Address, 5)
    While (Val(sRow) = 0)
    sRow = Right(sRow, Len(sRow) - 1)
    Wend
    b = Selection.Cells.Count
    a = ActiveSheet.Rows(Val(sRow)).Cells.Count
    i = 1
nochmal:
    Select Case b
            Case Is > a
                a = a * 2
                i = i + 1
                GoTo nochmal
            Case Is = a
                MsgBox "Es wurden " & i & " ganze Zeilen makiert"
            Case Is < a
                If i < 1 Then
                    MsgBox "Es wurde keine ganze Zeile makiert"
                Else
                    MsgBox "Es wurden weniger als " & i & " ganze Zeilen makiert"
                End If
        Exit Sub
    End Select
End Sub
Ist vielleicht auch nicht die optimale Lösung, da man ja per Zufall genau so viele Zellen makieren könnte... :/

 

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
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
Rot Ganze Zeilen Kopieren
 31.10.2012 15:24:44 Gast45365
NotSolved