Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxinhalte auslesen u. i. Tab.blatt schreiben

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

Forumthreads zu verwandten 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
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
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
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
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
Anzeige
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
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Leerzeichen löschen in allen Tabellen und Zellen?
dieter(drummer)

Excel gut ist übertrieben!
Hi VBA Profis,
ich suche eine VBA Lösung, die in allen Zellen, in allen Tabellen der aktiven Arbeitsmappe, die NUR EIN LEERZEICHEN drin haben, das LEERZEICHEN löscht. Dann soll die Zelle leer sein.
Zellen, die einen anderen Inhalt haben, z. B. Text und Za...
13.03.2009 09:32:28
Thread-ID: 1059743
11 Beiträge
Steuerzeichen aus "leeren" ("") Zellen löschen
Christoph

Hallo zusammen,
ich habe ein Tabellenblatt mit jeder Menge (fast) leerer Zellen. Diese werden erzeugt, indem im vorhergehenden Blatt WENN-Funktionen a la
WENN(a1=b1;"x";"")
verwendet werden. Kummer macht mir dies zum Beispiel beim Sortieren und bei Abfragen ob die Zellen leer si...
25.06.2009 10:41:14
Thread-ID: 1084263
5 Beiträge
Anzeige
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:18:48
Thread-ID: 1086596
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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