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

230 textboxen in Tabelle übertragen

Forumthread: 230 textboxen in Tabelle übertragen

230 textboxen in Tabelle übertragen
07.04.2009 10:13:39
erich
Hallo Excelprofis,
habe wieder ein problem,
ich möchte aus meiner Useform in der ich 230 Textboxen habe (in die zahlen eingetragen werden)
in meine Tabelle daten eintragen angefangen von der Spalte G bis x
jeder neue Datensatz soll eine zeile darunter eingetragen werden
wie muss ich den code schreiben ?
für eure hilfe wäre ich sehr dankbar
gruß
erich
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 230 textboxen in Tabelle übertragen
07.04.2009 10:29:34
Tino
Hallo,
in etwa so, kenne aber Deinen aufbau nicht.
Private Sub CommandButton1_Click()
Dim i As Integer
Dim LRow As Long, LCol As Long
'24 = X 
'7 = G 
LRow = 2
LCol = 7

For i = 1 To 230
 
 If IsNumeric(Me("Textbox" & i)) & Me("Textbox" & i) <> "" Then
  Cells(LRow, LCol) = Me("Textbox" & i) * 1
 Else
  Cells(LRow, LCol) = Me("Textbox" & i)
 End If

 LCol = IIf(LCol = 24, 7, LCol + 1)
 LRow = IIf(LCol > 7, LRow, LRow + 1)

Next i

End Sub


Gruß Tino

Anzeige
Me("Textbox" & i) ?
07.04.2009 10:36:02
D.Saster
Hallo,
muss doch wohl
Me.Controls("Textbox" & i)
heißen
Gruß
Dierk
muss nicht. oT.
07.04.2009 10:38:04
Tino
AW: aber mit Punkt
07.04.2009 10:41:51
Hajo_Zi
Hallo Tino,
ich hätte aber nicht Me sondern ME. geschrieben

Anzeige
für was?
07.04.2009 10:44:46
Tino
Hallo,
es funktioniert mit
Me("Textbox1")
oder
Userform1("Textbox1")
Habe den Code oben getestet. ;-)
Gruß Tino
AW: für was?
07.04.2009 10:47:22
Hajo_Zi
Hallo Tino,
es sah mir eigenartig aus. Ich habe es nicht getestet.
Gruß Hajo
Anzeige
kein Problem oT.
07.04.2009 10:48:49
Tino
in der Tat!
07.04.2009 11:14:18
D.Saster
was gelernt.
Gruß
Dierk
ein Fehler hat sich doch eingeschlichen. ;-(
07.04.2009 10:56:31
Tino
Hallo,
ein Fehler ist mir aber jetzt doch aufgefallen
Nicht & sondern And
Private Sub CommandButton1_Click()
Dim i As Integer
Dim LRow As Long, LCol As Long
'24 = X 
'7 = G 
LRow = 2
LCol = 7

For i = 1 To 70
 
 If IsNumeric(Me("Textbox" & i)) And Me("Textbox" & i) <> "" Then
  Cells(LRow, LCol) = Me("Textbox" & i) * 1
 Else
  Cells(LRow, LCol) = Me("Textbox" & i)
 End If

 LCol = IIf(LCol = 24, 7, LCol + 1)
 LRow = IIf(LCol > 7, LRow, LRow + 1)

Next i

End Sub


Gruß Tino

Anzeige
AW: 230 textboxen in Tabelle übertragen
07.04.2009 10:29:58
Beverly
Hi Erich,
wenn deine TextBoxen fortlaufend nummeriert sind und TextBox heißen, kannst du das mit diesem Code machen:

Private Sub CommandButton1_Click()
Dim loLetzte As Long
Dim inTextBoxen As Integer
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows. _
Count)
For inTextBoxen = 1 To 230
Cells(loLetzte, inTextBoxen + 6) = Me.Controls("TextBox" & inTextBoxen)
Next inTextBoxen
End Sub



Anzeige
AW: 230 textboxen in Tabelle übertragen - Korr.
07.04.2009 10:32:49
Beverly
Hi Erich,
sorry, da ist noch ein Fehler in meinem Code. Die Zeile muss so heißen:

loLetzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows. _
Count) + 1



Anzeige
AW: 230 textboxen in Tabelle übertragen - Korr.
07.04.2009 11:29:14
erich
hallo Excelprofis,
danke euch allen für die schnelle und super gute lösung
Danke
gruß
erich
noch eine Möglichkeit - Tag-Eigenschaft
07.04.2009 11:11:28
Beverly
Hi Erich,
noch eine Möglichkeit besteht darin, dass du in die Tag-Eigenschaft jeder TextBox die betreffende Spaltennummer einträgst. Diese kannst du mit dem Code auslesen und bist unabhängig vom Namen und der Nummerierung der TextBoxen:

Private Sub CommandButton1_Click()
Dim loLetzte As Long
Dim coElement As Control
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows. _
Count) + 1
For Each coElement In Me.Controls
If TypeName(coElement) = "TextBox" Then _
Cells(loLetzte, CInt(coElement.Tag)) = coElement
Next coElement
End Sub



Anzeige
AW: noch eine Möglichkeit - Tag-Eigenschaft
07.04.2009 11:36:02
erich
hallo Beverly,
was muss ich noch tun das mein tabellenblatt die Zahlen nicht als text sondern als Zahlen (Werte) kennt?
gruß
Erich
AW: noch eine Möglichkeit - Tag-Eigenschaft
07.04.2009 11:43:15
Beverly
Hi Erich,
schreibe noch CDbl davor: = CDbl(coElement)

Anzeige
AW: noch eine Möglichkeit - Tag-Eigenschaft
07.04.2009 12:18:41
erich
Hallo Beverly,
komme mit den coelement nicht zurecht, wie geht das mit den Werten mit den vorherrigen code?
gruß
Erich
AW: noch eine Möglichkeit - Tag-Eigenschaft
07.04.2009 12:30:41
Beverly
Hi Erich,
wo liegt denn da das Problem? Du müsstest das schon etwas genauer beschreiben. Hast du vielleicht noch andere TextBoxen im Userfrom, welche nicht mit ausgewertet werden sollen? Dann kannst du das z.B. in einer If-Abfrage ausschließen.
Für den anderen Code musst du genau so den rechten Teil in CDbl einschließen:

= CDbl(Me.Controls("TextBox" & inTextBoxen))



Anzeige
AW: noch eine Möglichkeit - Tag-Eigenschaft
07.04.2009 12:54:42
erich
Danke beverly,
jetzt funktionierts, mit den anderen Code habe ich probleme gehabt da er nichts in das tabellen baltt geschrieben hat
danke nochmals für die sehr kompetente und schnelle hilfe
Danke
Gruß
Erich
;

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
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
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
Anzeige
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
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
Anzeige
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
Anzeige
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