Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
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
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxinhalte auslesen u. i. Tab.blatt schreiben

Textboxinhalte auslesen u. i. Tab.blatt schreiben
Markus
Tach zusammen
Habe mehrere Textboxen in meiner Userform und möchte den Inhalt dieser Textboxen in eine sheet per Knopfdruck eintragen und ausdrucken lassen. Kann mir mal einer helfen.
Danke dafür
Markus
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Klaus-Dieter
Hallo Markus,
so sollte es gehen:
Private Sub CommandButton1_Click()
Dim s As Integer
Dim az As Integer
Dim arrt(9) As Variant
s = Worksheets("Tabelle1").Range("A65536").End(xlUp).Row + 1
Dim objt As Object
For Each objt In Me.Controls
If Left(TypeName(objt), 4) = "Text" Then
arrt(az) = objt.Value
az = az + 1
End If
Next objt
Worksheets("Tabelle1").Range("A" & s, "I" & s) = arrt
End Sub
Gruß Klaus-Dieter
Anzeige
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Markus
Hi Klaus Dieter
Vielen Dank für deine Hilfe. Allerdings gibt mein Rechner hierbei eine Fehleranzeige!!!
s = Worksheets("Tabelle1").Range("A65536").End(xlUp).Row + 1
Danke
Markus
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Klaus-Dieter
Hallo Markus,
es wäre hilfreich zu wissen, welche das ist. Mit dieser Programmzeile wird ermittelt, wie lang die Tabelle ist. Sollte es zum Beispiel keine "Tabelle1" geben, müßte der Quelltext entsprechend angepaßt werden, (auch in der vorletzten Zeile).
Gruß Klaus-Dieter
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Markus
Hi nochmal
Habe Tabelle1 vorhin auch schon geändert, allerdings gibts die Meldung trotzdem:o(
Gruß
Markus
Anzeige
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Klaus-Dieter
Hallo Markus,
wie viele Textboxen sind es denn? Das Makro ist für 9 eingerichtet. Wenn es das auch nicht ist, kannst du die Tabelle hier hochladen, oder du schickst sie mir per Mail.
Gruß Klaus-Dieter
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Markus
Hi Klaus Dieter
geht auch nicht. So wie ich das hier sehe habe ich sogar eine alte Idee von dir hier in meinen Dateien gefunden. Klaus Dieter Oppermann ist die u. U. sogar von dir?!?!?!
Ich schicke sie einfach mal ins Forum
https://www.herber.de/bbs/user/5048.xls
Gruß und Danke
MArkus
Anzeige
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Klaus-Dieter
Hallo Markus,
ist von mir, ich she mir das an.
Gruß Klaus-Dieter
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Markus
Hi
Danke vielmals.
Muss leider jetzt ins Bett; weil 5 Uhr aufstehen.
Gruß und Danke
Bis morgen
Markus
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Klaus-Dieter
Hallo Markus,
anbei das geänderte Makro.
Private Sub CommandButton5_Click()
Dim s As Integer
Dim az As Integer
Dim arrt(7) As Variant
s = Worksheets("Eingabe").Range("A5000").End(xlUp).Row + 1
Dim objt As Object
For Each objt In Me.Controls
If Left(TypeName(objt), 4) = "Text" Then
arrt(az) = objt.Value
az = az + 1
End If
Next objt
Worksheets("Eingabe").Range("A" & s, "F" & s) = arrt
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Klaus-Dieter
Anzeige
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Markus
Hallo Klaus Dieter
Ich glaube ich habe mich falsch ausgedrückt.... Sorry. Was ich wollte ist das man den Textboxinhalt ausdrucken kann. Dein Makro schreibt den Name des ausgesuchten Menschen aufs Blatt aber dann habe ich den Eintrag ja irgendwann doppelt und dreifach. Ich möchte eigentlich nur die ausgesuchte Person mit all ihren Daten seperat ausdrucken. Ich will hoffen das ich jetzt richtig gefragt habe.... Deutsches Sprack schweres Sprack.
Sorry nochmals in der Hoffnung das du mir nochmal helfen kannst.
Gruß und danke
Markus
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Klaus-Dieter
Hallo Markus,
das hatte ich völlig falsch verstanden. Habe mich noch gewundert, weil es eine entsprechende Funktion ja schon gab. Ich mache mich gleich an die "Arbeit", melde mich, wenn ich fertig bin.
Gruß Klaus-Dieter
Anzeige
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Klaus-Dieter
Hallo Markus,
der neue Quelltext:
Private Sub CommandButton6_Click()
Dim arr(50, 6) As Variant
Dim zz As Integer
Dim zeil As Integer
Dim firstaddress As String
With Worksheets("Eingabe").Range("a1:a500")
Set c = .Find(Me.TextBox7.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
zeil = c.Row
zz = zz + 1
For sp = 1 To 6
arr(zz - 1, sp - 1) = Worksheets("Eingabe").Cells(zeil, sp).Value
Next sp
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Worksheets("Tabelle1").Range("A2:F50") = arr
Worksheets("Tabelle1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Klaus-Dieter
Anzeige
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Markus
Hallo Klaus Dieter
Find ich echt super das du mir noch einmal hilfst, aber dieser Zeile gibt es immer noch etwas trouble :o(

Laufzeitfehler 9
Index ausserhalb gültigem Bereich
ausserdem markiert er im Code
arr(zz - 1, sp - 1) = Worksheets("Eingabe").Cells(zeil, sp).Value
diese Zeile.
Kannst du mir noch einmal helfen?
Gruß und Vielen Dank
Markus
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Klaus-Dieter
Hallo Markus,
du mußt noch ein Tabellenblatt mit dem Namen Tabelle1 anlegen, dann sollte es gehen. Das ist das Blatt für die Druckausgabe. Ich hatte versucht die Arbeitsmappe hochzuladen, aber das funktioniert im Monent offenbar nicht, Hans läßt nur noch Bilder zu.
Gruß Klaus-Dieter
Anzeige
AW: Textboxinhalte auslesen u. i. Tab.blatt schreiben
Markus
Auf die Gefahr hin das ich nerve, aber es geht immer noch nicht :o(.
Das Tabellenblatt1 hatte ich gestern schon angelegt, aber leider funzt das immer noch nicht. Vielleicht kannst du mir die Mappe ja doch mal versuchen hochzuladen.
Euch ausm Forum kann man echt nicht bezahlen.
Vielen Dank
Markus

307 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Wert zeischen 2 Zeichen ausgeben
Müller

Hi zusammen
Ich würde gerne den Wert zwischen dem Zeichen " ausgeben lassen. Z.b. in so einem Text:
uebcaise"http://www.irgendwas.de"eirhasbdf"http://www.website.de"vhergta
Jetzt müsste es 2 Werte ausgeben können:
Wert1: http://www.irgendwas.de
Wert2: http://www.website.de
07.12.2008 11:33:00
Thread-ID: 1030829
7 Beiträge
Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 Beiträge
Anzeige
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Zelle auslesen aber Blattname unbekannt !
Mandy

Hallole,
in meinem Sheet kopiere ich Tabellenblätter aus anderen Dateien. Nun will ich aus diesen Tabellenblätter eine Zelle (J5) kopieren und in mein Sheet "Page" H21 eintragen.
Das Problem: ich weiss nicht, in welchem der kopierten Tabellenblätter die Information steht und wie das Ta...
10.02.2009 09:14:14
Thread-ID: 1048897
4 Beiträge
zellenwerte auslesen und Tabellarisieren
Marko

Hallo,
ich bräuchte ein Makro das nach dem Starten den Wert der in Tabelle 1 A1 steht in Tabelle 2 schreibt.
Das soll er dann alle 5 Sekunden wiederholen.
So das ich in Tabelle 2 eine Liste erhalte mit den werten aus Tabelle 1 A1
Kann mir jemand dabei helfen?
Gruß
Marko<...
25.02.2009 15:39:44
Thread-ID: 1054007
4 Beiträge
Bestimmtes Zeichen in Zellen einfügen VBA
Thomas

Hallo guten Morgen liebe Helfer,
ich habe eine sehr große Tabelle mit vielen Angaben. Nun muss aber für einen Import dieser Daten in einem anderen Programm vor jedem Eintrag in meiner Excel-Tabelle in ganz bestimmten Spalten ein Zeichen eingefügt werden. Das Zeichen ist das ' (über dem #...
26.02.2009 11:05:37
Thread-ID: 1054273
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
4
6
3
2
5
2
3
3
4
7
10
4
1
8
9
3
1
1
4
3
7
2
2
2