Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

textbox inhalt in mehreren Tabellenblätter einfüge

Forumthread: textbox inhalt in mehreren Tabellenblätter einfüge

textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 08:57:42
Andre
Hallo zusammen
Ich habe eine Userform mit 8 Textboxen
nun möchte ich das in Tabelle 1 alle 8 Textboxen in der letzten freien Zeile eingetragen werden und in Tabelle 2 nur 2 Textboxen auch in der letzten freien Zeile
vielen Dank im voraus für eure Hilfe
Anzeige
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 09:04:21
Crazy
Hallo
das könnte so aussehen
Private Sub CommandButton1_Click()
Dim i As Integer
Dim lngZiel As Long
With Sheets("Tabelle1")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 8
.Cells(lngZiel, i).Value = Controls("Textbox" & i).Value
Next
End With
With Sheets("Tabelle2")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 2
.Cells(lngZiel, i).Value = Controls("Textbox" & i).Value
Next
End With
End Sub
MfG Tom
Anzeige
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 09:24:49
Andre
Hallo Tom
Danke erstmal hat nicht funktioniert
habe bestimmt was falsch gemacht
ich lade gleich mal ein Datei hoch
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 09:07:14
Werner
Hallo Andre,
da wären dann noch ein paar Fragen:
- in welcher Spalte soll in Tabelle 1 die erste freie Zeile ermittelt werden?
- in welcher Spalte soll in Tabelle 2 die erste freie Zeile ermittelt werden?
- in welche Spalte soll der Inhalt der Textboxen in Tabelle 1 eingetragen werden?
- in welche Spalte soll der Inhalt der Textboxen in Tabelle 2 eingetragen werden?
- von zwei Textboxen sollen die Werte in Tabelle 2 eingetragen werden?
Lad doch mal deine Datei hier hoch und beantworte die Fragen.
Gruß Werner
Anzeige
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 09:35:41
Andre
Hallo Werner
Ich habe eine Testdatei hochgeladen
es soll in beiden Tabellen die Spalte A durchsucht werden
https://www.herber.de/bbs/user/110398.xlsm
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 09:45:33
Crazy
Hallo
so geht es in deiner Datei
Private Sub CommandButton1_Click()
Dim i As Integer
Dim lngZiel As Long
With Sheets("Tabelle1")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 8
.Cells(lngZiel, i).Value = Controls("Textbox" & i).Value
Next
End With
With Sheets("Tabelle2")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZiel, 1).Value = TextBox4.Value
.Cells(lngZiel, 2).Value = TextBox7.Value
End With
End Sub
MfG Tom
Anzeige
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 10:00:11
Andre
Hallo Tom
Supi läuft nur hackt es ein bisschen kann man da noch was ändern?
Danke erstmal für deine Hilfe
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 09:46:02
Werner
Hallo Andre,
der Code von Tom ermittelt die erste freie Zeile in beiden Blättern in Spalte A, somit würde das deinen Anforderungen entsptechen.
Damit der Code von Tom läuft, müssen deine Textboxen TextBox1 bis TextBox8 heißen. Wenn du die umbenannt hast, dann läuft das nicht.
Der Code von Tom schreibt den Inhalt von TextBox 1 und 2 ins Tabellenblatt 2. Wenn das der Inhalt von anderen Textboxen sein soll, dann müsstest du die zweite For - Next Schleife anpassen.
For i = 1 To 2

Textbox 1 und 2 
For i = 2 To 3

Textbox 2 und 3
Deine Datei kann ich im Moment nicht herunter laden, da ich hier keine .xlsm herunterladen kann. Entweder wartest du, dass Tom sich das nochmals anschaut, oder du lädst die Datei noch mal ohne Makros hoch, als .xls und stellst deinen bisherigen Code separat hier ein.
Gruß Werner
Anzeige
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 09:58:22
Andre
Hallo Werner
der Code von Tom läuft :) hackt nur ein bisschen
kann man das bisschen beschleunigen?
Danke für deine Hilfe
https://www.herber.de/bbs/user/110399.xlsx
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 10:05:44
Werner
Hallo Andre,
Private Sub CommandButton1_Click()
Dim i As Integer
Dim lngZiel As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 8
.Cells(lngZiel, i).Value = Controls("Textbox" & i).Value
Next
End With
With Sheets("Tabelle2")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZiel, 1).Value = TextBox4.Value
.Cells(lngZiel, 2).Value = TextBox7.Value
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 10:10:06
Andre
Hallo Werner
LÄUFT SUPI
DANKE für deine Hilfe
Ihr hier im Forum seid spitze
AW: Gerne u. Danke für die Rückmeldung.
08.01.2017 10:21:44
Werner
Hallo Andre,
vergiss den Dank an Tom nicht, von dem ist schließlich der Code.
Gruß Werner
AW: textbox inhalt in mehreren Tabellenblätter einfüge
08.01.2017 10:09:54
Werner
Hallo Andre,
ggf. noch die automatische Berechnung während das Makro läuft ausschalten. Oben nach ScreenUpdating ausschalten und unten vor ScreenUpdating wieder einschalten.
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
Application.Calculation = xlCalculationManual 'automat.Berechnung ausschalten
'***weiterer Code***
Application.Calculation = xlCalculationAutomatic 'automat.Berechnung einschalten
Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten
Gruß Werner
Anzeige

Forumthreads zu verwandten Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Anzeige
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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