Kopieren VBA anstatt einer Formellösung

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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:06:14

Peter

Hallo Bernhard,
das sollte so funktionieren: https://www.herber.de/bbs/user/55635.xls
Gruß Peter

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

Beliebteste Forumthreads (12 Monate)

Kopieren VBA anstatt einer Formellösung

Forumthread: Kopieren VBA anstatt einer Formellösung

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Kopieren VBA anstatt einer Formellösung

Forumthread: Kopieren VBA anstatt einer Formellösung

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread