auswahl

Forumthread: auswahl

auswahl

07.02.2009 16:38:00

Rolf

Hallo Leute!
kann mir Jemand helfen ein Bereich
kopieren mit Auswahl ?
Also Bereich (A2:B5) sollte nach (J2:K5) kopiert
werden wenn der Bereich jedoch voll ist dann nach (J7:K10)
Grüße
Rolf

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: auswahl

07.02.2009 16:49:18

Josef
AW: auswahl

07.02.2009 16:59:35

Rolf
AW: auswahl

07.02.2009 17:00:00

Josef
AW: auswahl

07.02.2009 17:12:00

Gerd
AW: auswahl

07.02.2009 17:45:00

Rolf
AW: auswahl

07.02.2009 18:05:00

Josef
AW: auswahl

07.02.2009 18:11:01

Gerd
AW: Werte eines Bereichs übertragen

07.02.2009 18:08:28

Erich
Sehr gut! oT

07.02.2009 18:13:00

Gerd
AW: Sehr gut! oT

07.02.2009 19:43:00

Rolf
Alternative: Offset mit IIf

07.02.2009 20:05:04

Erich

AW: auswahl

07.02.2009 16:49:18

Josef

Hallo Rolf,
wie definiert sich "leer" in deinem Bereich?
Leer = nicht alle zellen sind gefüllt?
Leer = keine Zelle ist gefüllt?

Gruß Sepp

AW: auswahl

07.02.2009 16:59:35

Rolf

Hallo Sepp!
Alle Zellen im destination Bereich sind leer oder alle sind voll.
Rolf

AW: auswahl

07.02.2009 17:00:00

Josef

Hallo Rolf,
Sub copyRange()
    Dim lngR As Long

    For lngR = 2 To Rows.Count Step 5
        If Application.CountA(Cells(lngR, 10).Resize(4, 2)) = 0 Then
            Range("A2:B5").Copy Cells(lngR, 10)
            Exit For
        End If
    Next

End Sub

Gruß Sepp

AW: auswahl

07.02.2009 17:12:00

Gerd

Hi,


Sub til()
If IsEmpty([j5]) Then
[a2:b5].Copy [j7]
Else
[a2:b5].Copy [j2]
End If
End Sub

mfg Gerd

AW: auswahl

07.02.2009 17:45:00

Rolf

Hallo Sepp und Gerd!
Beide Makros arbeiten blitzschnell!
Es stört nur das die Empfangs Bereiche
ihre Hintergrundfarbe verlieren.
Kann man die Hintergrundfarbe erhalten?
Grüße
Rolf

AW: auswahl

07.02.2009 18:05:00

Josef

Hallo Rolf,
du sagest kopieren. Genaue Angaben, richtiger Code.
Sub copyRange()
    Dim lngR As Long

    For lngR = 2 To Rows.Count Step 5
        If Application.CountA(Cells(lngR, 10).Resize(4, 2)) = 0 Then
            Cells(lngR, 10).Resize(4, 2) = Range("A2:B5").Value
            Exit For
        End If
    Next

End Sub

Gruß Sepp

AW: auswahl

07.02.2009 18:11:01

Gerd

Hi,


Sub til()
If IsEmpty([j5]) Then
[a2:b5].Copy
[j7].PasteSpecial Paste:=xlValues
Else
[a2:b5].Copy
[j2].PasteSpecial Paste:=xlValues
End If
Application.CutCopyMode = 0
End Sub

mfg Gerd

AW: Werte eines Bereichs übertragen

07.02.2009 18:08:28

Erich

Hi Rolf,
probier mal


Range("J2:K5").Offset(5 + 5 * IsEmpty(Range("J2"))) = Range("a2:b5").Value

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sehr gut! oT

07.02.2009 18:13:00

Gerd

AW: Sehr gut! oT

07.02.2009 19:43:00

Rolf

Hallo Sepp , Erich und Gerd!
Alles funktioniert BESTENS!
Ich DANKE ALLEN!
Beste Wünsche!
Rolf

Alternative: Offset mit IIf

07.02.2009 20:05:04

Erich

Hallo,
noch ne Variante - kaum länger, dafür etwas weniger kryptisch:


Range("J2:K5").Offset(IIf(IsEmpty(Range("J2"), 0, 5))) = Range("A2:B5").Value

Schönes Wochenende! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Forumthread: auswahl

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread