Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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

Anzeige
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
Anzeige
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

Anzeige
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

Anzeige
Sehr gut! oT
07.02.2009 18:13:00
Gerd
ot
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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige