Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
Screenshot zu InputBox	InputBox-Seite mit Beispielarbeitsmappe aufrufen

Zeilen Kopieren

• Zeilen Kopieren von eno vom 10.09.2004 15:21:29
• AW: Zeilen Kopieren - von th.heinrich am 10.09.2004 15:56:58
  • AW: Zeilen Kopieren - von eno am 10.09.2004 16:12:13
    • AW: Zeilen Kopieren - von th.heinrich am 10.09.2004 21:36:54

Betrifft: Zeilen Kopieren von: eno
Geschrieben am: 10.09.2004 15:21:29

Hallo Excel-Fan-Gemeinde !
Wer kann helfen ?

Ich benötigte ein Marko zum Kopieren von Datensätzen.
In dem Tabellenblatt "Türliste" sind in Spalte A-C Daten hinterlegt.
In Spalte A gibt es nur die Informationen ("WAHR", "FALSCH", "LEER").
Es sollen die zugehörigen Zellenbereiche aus Spalte B und C
in das Tabellenblatt "Legende" kopiert werden,
wenn der Wert in Spalte A "WAHR" ist !
Leerzeilen sollen hierbei gelöscht werden !

eno

Betrifft: AW: Zeilen Kopieren von: th.heinrich
Geschrieben am: 10.09.2004 15:56:58

hallo Eno,

wie kommt dies in die SPALTE A ?

"In Spalte A gibt es nur die Informationen ("WAHR", "FALSCH", "LEER")."

mit FORMELN oder haendisch.

1. loesungsansatz: nimm den AUTOFILTER nach WAHR und kopiere die den gefilterten BEREICH.

gruss thomas




Betrifft: AW: Zeilen Kopieren von: eno
Geschrieben am: 10.09.2004 16:12:13

Hallo Thomas,
In Spalte A sind hierfür Formeln hinterlegt.

Ich bräuchte allerdings ein Makro,
welches den Kopierprozess automatisch ausführt.

eno




Betrifft: AW: Zeilen Kopieren von: th.heinrich
Geschrieben am: 10.09.2004 21:36:54

hallo Eno,

filter mit AUTOFILTER nach WAHR, dann dieser CODE. geht sicher auch optimaler.

Sub Uebertragen()
   Dim rngSource, rngTarget
   Set rngSource = Application.InputBox( _
      prompt:="Quellbereich auswählen:", Type:=8)
   Set rngTarget = Application.InputBox( _
      prompt:="Zielbereich auswählen:", Type:=8)
   rngSource.Copy
   rngTarget.PasteSpecial Paste:=xlAll
    Application.CutCopyMode = False
    
End Sub

gruss thomas

Beiträge aus den Excel-Beispielen zum Thema "Zeilen Kopieren"