Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

312to316

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

VBA: ausgewählte Namen in neue Liste kopieren

Forumthread: VBA: ausgewählte Namen in neue Liste kopieren
7 Beiträge zu diesem Forumthread
Anzeige
313 Threads zu ähnlichen Themen
Top 100 Forumthreads

22.09.2003 18:31:37

Fritz

Hallo Excelfreunde und VBA-Profis,
wer kann mir helfen, die folgende Aufgabe zu realisieren.
In der Tabelle "A1" habe ich in der Spalte B im Bereich B4:B60 eine Namensliste.
In der Spalte C habe ich diesen Namen in C4:C60 unterschiedliche Zahlen stehen.
Ich möchte nun die Namen (aus Spalte B!), denen in der Spalte C eine 1 zugeordnet wurde, in die Tabelle "B1" in die Spalte E ab Zeile 4 kopieren.
Für jede Form von Hilfe danke ich bereits an dieser Stelle.
Mfg
Fritz

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA: ausgewählte Namen in neue Liste kopieren

22.09.2003 18:49:51

Holger Levetzow
Danke Holger - noch eine Frage

22.09.2003 19:39:13

Fritz
AW: Danke Holger - noch eine Frage

22.09.2003 21:06:44

Reinhard
Danke Reinhard

22.09.2003 21:45:05

Fritz
AW: Danke Reinhard

22.09.2003 22:43:00

HerbertH
AW: Danke Herbert

23.09.2003 18:27:35

Fritz
AW: VBA: ausgewählte Namen in neue Liste kopieren

23.09.2003 01:53:34

Björn B.

AW: VBA: ausgewählte Namen in neue Liste kopieren

22.09.2003 18:49:51

Holger Levetzow

versuche es so:


Sub test()
zeile = 4
For z = 4 To 60
If Sheets("A1").Cells(z, 3) = 1 Then
Sheets("B1").Cells(zeile, 5) = Sheets("A1").Cells(z, 2)
zeile = zeile + 1
End If
Next
End Sub

Holger

Danke Holger - noch eine Frage

22.09.2003 19:39:13

Fritz

Hallo Holger,
ich habe dein Makro getestet, funktioniert wie (zunächst) geplant. Vielen Dank.
Ich würde nun gern das Makro so erweitern, dass ich nicht nur in der Spalte C (der Ursprungstabelle "A1", in den Zeilen 4 bis 60 Zahlen eingebe, sondern auch in den nächsten 19 Spalten rechts daneben, also in den Spalten D bis V, dabei sollen in der Zieltabelle "B1" die entsprechenden Namen ebenso in die weiteren 19 Spalten rechts neben der Spalte E (also in die Spalten F bis Z) (ab Zeile 4) übernommen werden.
Könntest Du mir zeigen, wie ich in diesem Fall das Makro ändern muss.
Mfg
Fritz

AW: Danke Holger - noch eine Frage

22.09.2003 21:06:44

Reinhard

Hallo Fritz,
probier das mal:


Sub test()
For z = 4 To 60
If Sheets("A1").Cells(z, 3) = 1 Then
Sheets("B1").Cells(z, 5) = Sheets("A1").Cells(z, 2)
Sheets("A1").Range("D" & z & ":V" & z).Copy Destination:=Sheets("B1").Range("F" & z)
End If
Next
End Sub

Gruß
Reinhard

Danke Reinhard

22.09.2003 21:45:05

Fritz

Hallo Reinhard,
ich habe dein Makro getestet.
Die Namen werden leider nur in die erste Spalte nach "B1" kopiert. In den anderen Spalten taucht statt der Namen die 1 auf. Wie muss ich den Code ändern, dass die Namen kopiert werden.
Auf jeden Fall danke für deine bisherige Hilfe.
Gruß Fritz

AW: Danke Reinhard

22.09.2003 22:43:00

HerbertH

Hallo Fritz,
wenn ich dich richtig verstanden habe,
müßte das funktionieren:

Gruß Herbert

AW: Danke Herbert

23.09.2003 18:27:35

Fritz

Hallo Herbert,
ich habe Dein Makro getestet. Die Sache funktioniert jetzt insoweit, als dass jetzt die Namen und nicht die Zahl 1 in allen Spalten erscheint. Allerdings wollte ich eigentlich, dass die Namen erscheinen, für die in der entsprechenden(!) Spalte der Ursprungstabelle eine 1 eingetragen wurde. Es erscheinen in der Zieltabelle aber in jeder Spalte die gleichen Namen, somit die Namen, denen in der betreffenden Zeile der ersten(!) Spalte der Ursprungstabelle die 1 eingetragen wurde.
Ist aber nicht weiter schlimm, da mir inzwischen geholfen werden konnte.
Ich bedanke mich herzlich für die angebotene Hilfe und Deine Mühen.
Gruß
Fritz

AW: VBA: ausgewählte Namen in neue Liste kopieren

23.09.2003 01:53:34

Björn B.

Na klasse,

ich zerbrech mir den Kopf, verschwende meine Zeit für den Thread "VBA: Werte aus Tab1 nach Tab2 kopieren - Fritz 21.09.2003 20:24:36" und Du postest den gleichen Sch... nicht einmal einen Tag später noch einmal.

Dafür ist mir meine Zeit zu schade!

Björn