Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1012to1016
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
Inhaltsverzeichnis

Kopieren VBA anstatt einer Formellösung

Kopieren VBA anstatt einer Formellösung
24.09.2008 17:28:00
Bernhard
Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum besseren Verständnis auf einem Tabellenblatt dargestellt.

Die Datei https://www.herber.de/bbs/user/55629.xls wurde aus Datenschutzgründen gelöscht


Freue mich auf Eure Lösungsvorschläge und sage schon mal Danke.
Gruss
Bernhard

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Automatisch kopieren!
24.09.2008 17:50:38
Backowe
Hallo Bernhard,
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in die entsprechende Tabelle!
If Not Intersect(Target, Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row)) Is Nothing And _
  Target.Count = 1 Then
    If Target <> "" And IsNumeric(Target) Then
      Range("A" & Target.Row & ":C" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("A" & Target.Row)
      Range("E" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("E" & Target.Row)
      Range("F" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("D" & Target.Row)
    End If
End If
End Sub
Gruß Jürgen
AW: Automatisch kopieren!
Bernhard

Hallo Jürgen,
danke, das ist fast genau das was ich suche. In der Zieltabelle sollen jedoch keine Leerzeilen sein. Kann man das mit einem Löschmakro machen oder gibt es da eine elegantere Lösung?
Gruss
Bernhard
Es geht auch eleganter! ;o)
Backowe

Hi Bernhard,
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in die entsprechende Tabelle!
If Not Intersect(Target, Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row)) Is Nothing And _
  Target.Count = 1 Then
    If Target <> "" And IsNumeric(Target) Then
      Range("A" & Target.Row & ":C" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("A" & Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row + 1)
      Range("E" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("E" & Sheets("Tabelle2").Cells(Rows.Count, "E").End(xlUp).Row + 1)
      Range("F" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("D" & Sheets("Tabelle2").Cells(Rows.Count, "D").End(xlUp).Row + 1)
    End If
End If
End Sub
Gruß Jürgen
AW: Es geht auch eleganter! ;o)
Bernhard

Hallo Jürgen,
danke für Deine Lösung. Klappt auch, so wie gewünscht.
Herzlichen Dank nochmals und einen schönen Abend.
Bernhard
AW: Es geht auch eleganter! ;o)
Jan

Hi,
Excel/VBA und Eleganz schließen einander aus.
mfg Jan
Ach deswegen habe ich nie eine B-Note ...
Backowe

Hi Jan,
... bekommen! ;o)
Gruß Jürgen
AW: Kopieren VBA anstatt einer Formellösung
Peter

Hallo Bernhard,
das sollte so funktionieren: https://www.herber.de/bbs/user/55635.xls
Gruß Peter
AW: Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo Peter,
das ging aber schnell. Das ist die Lösung! Danke, Danke!
Gruss
Bernhard
Anzeige
AW: Automatisch kopieren!
24.09.2008 18:08:44
Bernhard
Hallo Jürgen,
danke, das ist fast genau das was ich suche. In der Zieltabelle sollen jedoch keine Leerzeilen sein. Kann man das mit einem Löschmakro machen oder gibt es da eine elegantere Lösung?
Gruss
Bernhard
Es geht auch eleganter! ;o)
24.09.2008 18:21:00
Backowe
Hi Bernhard,
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in die entsprechende Tabelle!
If Not Intersect(Target, Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row)) Is Nothing And _
  Target.Count = 1 Then
    If Target <> "" And IsNumeric(Target) Then
      Range("A" & Target.Row & ":C" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("A" & Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row + 1)
      Range("E" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("E" & Sheets("Tabelle2").Cells(Rows.Count, "E").End(xlUp).Row + 1)
      Range("F" & Target.Row).Copy _
        Destination:=Sheets("Tabelle2").Range("D" & Sheets("Tabelle2").Cells(Rows.Count, "D").End(xlUp).Row + 1)
    End If
End If
End Sub
Gruß Jürgen
AW: Es geht auch eleganter! ;o)
Bernhard

Hallo Jürgen,
danke für Deine Lösung. Klappt auch, so wie gewünscht.
Herzlichen Dank nochmals und einen schönen Abend.
Bernhard
AW: Es geht auch eleganter! ;o)
Jan

Hi,
Excel/VBA und Eleganz schließen einander aus.
mfg Jan
Ach deswegen habe ich nie eine B-Note ...
Backowe

Hi Jan,
... bekommen! ;o)
Gruß Jürgen
AW: Kopieren VBA anstatt einer Formellösung
Peter

Hallo Bernhard,
das sollte so funktionieren: https://www.herber.de/bbs/user/55635.xls
Gruß Peter
AW: Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo Peter,
das ging aber schnell. Das ist die Lösung! Danke, Danke!
Gruss
Bernhard
Anzeige
AW: Es geht auch eleganter! ;o)
24.09.2008 18:51:00
Bernhard
Hallo Jürgen,
danke für Deine Lösung. Klappt auch, so wie gewünscht.
Herzlichen Dank nochmals und einen schönen Abend.
Bernhard
AW: Es geht auch eleganter! ;o)
24.09.2008 21:10:18
Jan
Hi,
Excel/VBA und Eleganz schließen einander aus.
mfg Jan
Ach deswegen habe ich nie eine B-Note ...
24.09.2008 21:14:00
Backowe
Hi Jan,
... bekommen! ;o)
Gruß Jürgen
AW: Kopieren VBA anstatt einer Formellösung
24.09.2008 18:11:00
Bernhard
Hallo Peter,
das ging aber schnell. Das ist die Lösung! Danke, Danke!
Gruss
Bernhard

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige