Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige