Live-Forum - Die aktuellen Beiträge
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
Anzeige
Archiv - Navigation
1596to1600
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
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt mit VBA aus Liste ausfüllen

Tabellenblatt mit VBA aus Liste ausfüllen
13.12.2017 13:01:57
CWK
Liebes Forum,
ich habe folgendes Problem: Ich habe eine Übersicht mit Firmendaten erstellt, die im Tabellenblatt "Liste" angeführt sind. Nun habe ich (aufgrund meiner bescheidenen VB Erfahrungen) mir einen Code kopiert und für mich angepasst, der aus dem Firmennamen ein neues Tabellenblatt, bezeichnet mit dem Firmennamen erstellt. Soweit so gut.
Ich möchte aber noch, dass die Daten wie Adresse, Telefonnummer etc. ebenfalls übernommen werden. Dies hatte ich mit dem VB-Recorder versucht, bin aber gescheitert, da der Bezug nicht relativ zu dem Firmennamen war, sondern sich immer auf die gleiche Zelle bezog.
Ich versuche gleich noch die Datei hochzuladen und bedanke mich schon mal für die Unterstützung!
Christoph

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt mit VBA aus Liste ausfüllen
14.12.2017 11:12:30
CWK
...die gewünschte Verlinkung der Zellen geht aus der anliegenden Datei hervor. Würde mich freuen, wenn sich jemand dieses Problems annimmt.
AW: Tabellenblatt mit VBA aus Liste ausfüllen
16.12.2017 08:44:01
Piet
Hallo
muss mich beeilen, die Frau will frühjstücken. Hier ein Code
mfg Piet
Sub Makro2()
Dim Zeile As Integer, Sht As String
On Error GoTo Fehler
Worksheets("Liste").Select
Zeile = ActiveCell.Row
Sht = ActiveCell.Value
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Sheets("Vorlage (2)").Select
Range("B4").FormulaLocal = "=Liste!A" & Zeile
Range("B5").FormulaLocal = "=Liste!B" & Zeile
Range("B6").FormulaLocal = "=Liste!C" & Zeile
Range("C6").FormulaLocal = "=Liste!D" & Zeile
Range("G5").FormulaLocal = "=Liste!E" & Zeile
Range("G6").FormulaLocal = "=Liste!F" & Zeile
Range("K5").FormulaLocal = "=Liste!G" & Zeile
Range("K6").FormulaLocal = "=Liste!H" & Zeile
Sheets("Vorlage (2)").Name = Sht
Exit Sub
Fehler:  MsgBox "Diees Blatt existiert bereits"
End Sub

Anzeige
AW: Tabellenblatt mit VBA aus Liste ausfüllen
16.12.2017 10:41:16
Piet
Hallo
zur Code Erklaerung: - Programmierer verzichten auf die meisten Select Anweisungen, s. Code.
Zum Ausfüllen einer neuen Vorlage den Cursor auf den Firmen Namen stellen und das Makro (per Button) starten.
Sollte die Tabelle bereits existieren kann die Vorlage -nicht umbenannt- werden!!
Ansonsten sollte alles automatisch erfolgen. Bitte Code testen. Rückmeldung waere nett.
mfg Piet
AW: Tabellenblatt mit VBA aus Liste ausfüllen
17.12.2017 21:56:32
CWK
Schon mal vielen Dank für die Rückmeldung!
Ich war am Wochenende unterwegs und werde es morgen mal testen. Melde micht dann noch mal...
AW: Tabellenblatt mit VBA aus Liste ausfüllen
18.12.2017 09:56:52
CWK
Moin moin,
ich habe es gerade ausprobiert, es läuft alles super! Nochmals vielen Dank, insbesondere für die Rückmeldung, wenn das Tabellenblatt schon existiert! Ich habe (dank anderer Hilfen hier im Forum) noch die Funktion ergänzt, dass das überzählige Tabellenblatt gleich wieder gelöscht wird. Der Code sieht jetzt so aus:
Sub Erstellen()
Dim Zeile As Integer, Sht As String
On Error GoTo Fehler
Worksheets("Liste").Select
Zeile = ActiveCell.Row
Sht = ActiveCell.Value
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Sheets("Vorlage (2)").Select
Range("B4").FormulaLocal = "=Liste!A" & Zeile
Range("B5").FormulaLocal = "=Liste!B" & Zeile
Range("B6").FormulaLocal = "=Liste!C" & Zeile
Range("C6").FormulaLocal = "=Liste!D" & Zeile
Range("G5").FormulaLocal = "=Liste!E" & Zeile
Range("G6").FormulaLocal = "=Liste!F" & Zeile
Range("K5").FormulaLocal = "=Liste!G" & Zeile
Range("K6").FormulaLocal = "=Liste!H" & Zeile
Sheets("Vorlage (2)").Name = Sht
Exit Sub
Fehler:  MsgBox "Dieses Blatt existiert bereits"
Application.DisplayAlerts = False
Sheets("Vorlage (2)").Delete
Application.DisplayAlerts = True
End Sub
Zwei Fragen hätte ich noch, um das Ergebnis perfekt zu machen:
1. Wie bekomme ich einen Hyperlink von der ersten Zelle der Liste auf das jeweilige Tabellenblatt?
2. Wie bekomme ich aus dem neuen Tabellenblatt einen Wert, bspw. aus Zelle "L23" in die das Sheet "Liste", aktuelle Zeile, Spalte I eingetragen? Hier scheiter ich mit meinen geringen VB-Kentnissen leider schon wieder...
Anzeige
AW: Tabellenblatt mit VBA aus Liste ausfüllen
18.12.2017 12:45:55
Piet
Hallo Christoph
freut mich das mein Makro so gut angekommen ist. Ich gebe noch einen Tipp und ein Makro.
Sollte der Thread damit beendet sein bitte schliessen, KontrollBox nicht mehr aktivieren.
Beim neu erstellen des Blattes ist unteres Makro nicht sinnvoll, erst wenn Werte in der Mappe sind!
Dann einfach den Cursor auf das gewünschte Blatt setzen und Makro starten. Es ladet den Wert.
Nur den Offset must du noch selbst anpassen in welche Zelle der Wert kopiert werden soll?
Offset(0,x) heisst, x ist die Anzahl von Spalten um den der Wert nach Rechts verschoben wird.
Den Hyperlink am besten einmal von Hand erstellen, und mit dem Makro Recorder aufzeichenen.
Danach nur die Adressen im Makro anpassen. So mache ich es auch in der Praxis.
mfg Piet
Sub Wert_L22_einfügen()
With Worksheets("Liste")
Sht = ActiveCell.Value
ActiveCell.Offset(0, 1) = Worksheets(Sht).Range("L22")
End With
End Sub

Anzeige
warum offen?
18.12.2017 17:31:37
Hajo_Zi
Hallo Piet,
lasse den Fragesteller entscheiden ob offen.
Es ist Heute nicht mehr üblich eine Rückmeldung zu geben und so ist der Beitrag über 6 Tage offen.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: geschlossen oWt
19.12.2017 10:47:58
Piet
...

306 Forumthreads zu ähnlichen Themen

ComboBox1.AddItem automatisch
Vera

Hallo liebe Excelfreunde
ich möchte die ComboBox einer Userform mit den letzten 20 unterschiedlichen Bemerkungen füllen.
Vieleicht hat jemand ein Beispiel rumliegen welches:
- die Bemerkungsspalte von unten nach oben durchgeht
- 20 unterschiedlich!! Bemerkungen findet
- die...
12.09.2008 09:28:00
Thread-ID: 1009278
3 Beiträge
Anzeige
UserForm ComboBox füllen
chrissey

Hallo Excel-Volk,
hab mal wieder ein Problemchen:
Ich habe ein UserForm mit einer ComboBox1 jetz möchte ich diese mit einem Datensatz füllen.
Den Namen des Datenbreichs habe ich bereits als DD1 definiert. Normalerweise müsste ich dies
doch unter Eigenschaften ListFillRange eintr...
18.08.2009 11:43:39
Thread-ID: 1096692
5 Beiträge
Combobox aus immer größer werdende Tabelle füllen
Ralf

Hallo!
Ich habe eine 6 Spaltige Tabelle.
Die Spalten B D und F füllen die Comboboxen 1-3 und die Spalten C E und G füllen die Bezeichnungsfelder.
Die Datenfelder sind über Listindex verbunden, so dass immer alles aus derselben Zeile gezogen wird.
Nur habe ich aber das Problem da...
03.10.2009 14:52:21
Thread-ID: 1106973
4 Beiträge
Anzeige
ComboBox3.AddItem
Heinz

Hallo Leute
Ich habe 18 Comboboxen 3-20
Üverall sollte der selbe Wert wie unten erscheinen. Gibt es eine Möglichkeit diese ComboBoxen vereinfacht zu füllen?
Gruß
Heinz
ComboBox3.AddItem "311" ComboBox3.AddItem "312" ComboBox3.AddItem "321" ComboBox3.AddItem "321" Combo...
16.10.2010 16:11:46
Thread-ID: 1182753
5 Beiträge
Combobox füllen bei Auswahl des Tabellenblatts
Frank

Hallo Zusammen,
erst mal möchte mich nochmals bedanken.
Dieses Forum ist einfach klasse.
Nun zu meinem Problem.
Ich habe eine Arbeitsmappe mit zwei Tabellen.
Soll immer mit Tabelle1 geöffnet werden.
Die Combobox die gefüllt wird liegt auf einer Userform die beim öffnen d...
25.02.2011 10:28:20
Thread-ID: 1202874
3 Beiträge
ComboBox befüllen aus mehreren Tabellen
Mister

Guten Morgen,
wer kann mir auf der Sprunge helfen? Ich habe 5 Tabellen (Gruppe1 bis 5) mit Namen jeweils in den Zellen C5 bis C41. Ich möchte diese Namen in einem ComboBox in einer UserForm auflisten und nach Möglichkeit sortiert.
Hat jemand eine Idee?
Danke und Gruß
Martin
07.09.2011 11:11:02
Thread-ID: 1228908
3 Beiträge
Füllen von Combobox in Userform
Combobox

Hallo Zusammen
Ich hätte eine Frage zum Thema füllen von einer Combobox in einer Userform.
Ausgangslage:
Userform in Tabelle 1 (inkl. Combobox)
Combobox ist zweispaltig
Daten in Tabelle 3 A2: B10
Problem:
Die Daten werden nicht eingefüllt. Was ist falsch?
Private...
03.12.2011 17:27:43
Thread-ID: 1240516
11 Beiträge
Userform Combobox füllen
snore

Hallo Excelprofis,
ich hab ein "hoffentlich" keines Problem, ich benutze folgenden Code in meiner Userform um Daten in eine Combobox einzulesen.
soweit so gut, funktioniert auch sehr gut, nur ich muss das Tabellenblatt offen haben um die Daten einzulesen, ich will aber auf einen Anderen...
20.08.2012 17:28:33
Thread-ID: 1275770
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
10
4
3
8
4
2
2
10
2
1
5
2
5
4
4
6
4
1
10
1
9
2
6
2