Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

With Worksheets von einem UserForm aus

With Worksheets von einem UserForm aus
17.08.2005 08:21:17
einem
Hätt schon wieder ein Problem mit dem Code:
Also, ich habe ein USerForm mit einer TextBox und einer ComboBox und ich möchte per click auf einen CommandButton die Werte die in der Boxen stehen in ein >bestimmtes und deffiniertes zB.: der Erste Wert soll in die Spalte A Zeile 1, der Zweite wert in die Spalte A Zeile 2!
Wie, bereits beschreiben gehe ich heir von einem UserForm aus!
Kann mir vielleicht jemand weiterhelfen?
Grüße Stefan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: With Worksheets von einem UserForm aus
17.08.2005 08:27:27
einem
Hallo Stefan,
ist doch ganz einfach
schreib anstelle Tabelle1.Combobox1. ... (siehe deinen vorhergehenden Post)
jetzt einfach deinen Userformnamen davor Tabelle1. wird zu Userform1. ...
Gruß Sylvio
AW: With Worksheets von einem UserForm aus
17.08.2005 08:45:45
einem 

Private Sub CommandButton1_Click()
Dim i As Integer
With Worksheets("Tabelle1")
.Cells(Cells(1, 1).End(xlDown).Row + 1, 1).Value = UserForm1.TextBox1.Value
.Cells(Cells(1, 2).End(xlDown).Row + 1, 2).Value = UserForm1.ComboBox1.Value
End With
End Sub

Die definitionen passen überall
Er schreit dauernd Fehler 1004, Objektdefinierter Fehler!
Was mir auch grad noch auffällt is, da dort wo für die Spalten Buchstaben stehen sollten stehen jetzt Zahlen!! Wie gehtn des? I kenn mi goa nimma mehr aus!
HILFE!
Anzeige
AW: With Worksheets von einem UserForm aus
17.08.2005 09:13:13
einem
Hi,
du referenzierst zwar die Zelle in Tabelle1, aber die Ermittlung der letzten benutzten Zelle bezieht sich auf die aktive Tabelle. Da fehlt also ein Bezugspunkt.
So geht's:
.Cells(.Cells(1, 1).End(xlDown).Row + 1, 1).Value = UserForm1.TextBox1.Value
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: With Worksheets von einem UserForm aus
17.08.2005 09:47:01
einem
Hab schon alles Probiert, irgendwo hats da immer einen Error.
Vielleicht gibts einfachere und oder andere Lösungen.
Also: Ich hab ein Userform1, auf dem ist eine TextBox1 und ein CommandButton1 und ich möchte ganz einfach daß wenn man auf den Button clickt, daß dieser Wert in das z.B. Tabellenblatt2 Spalte F Zeile 1 übertragen wird. Beim 2ten click auf den Button sollte dann der neue Wert von der TextBox in die Spalte F Zeile 2 geschrieben werden!
Is des wirklich so schwer zu lösen, ich beiß ma schon den ganzen Vormittag in den Hintern weils net funktioniert!
Bitte nochmals um Hilfe!
Danke im Voraus...Stefan
Anzeige
AW: With Worksheets von einem UserForm aus
17.08.2005 10:10:57
einem
Servus,
brobiers amoi a so:
Private Sub CommandButton1_Click()
    With Worksheets("Tabelle1") 'Name anpassen !!!
        .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = TextBox1.Value
        .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row + 1, 2).Value = ComboBox1.Value
    End With
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: With Worksheets von einem UserForm aus
17.08.2005 10:56:06
einem
Sehr gut! Es funktioniert!
Danke nochmals an alle für die Informationen!
AW: With Worksheets von einem UserForm aus
17.08.2005 09:43:51
einem
Ups da fehlt der zweite Punkt
.Cells(.Cells( bla bla bla
Gruß Sylvio

77 Forumthreads zu ähnlichen Themen

For each shape in Selection
Atikar

Hallo Leute,
ich würde gerne alle Namen der ausgewählten Shapes auslesen, leider bekomm ich das nicht hin, und im Archiv hab ich auch nichts gefunden.
Sollte so ähnlich aussehen:
For Each sShape in Selection
msgbox sShape.name
next sShape
leider funktioniert das nicht
25.09.2008 10:28:00
Thread-ID: 1012252
3 Beiträge
Anzeige
for each zelle in sheet problem
thomas

Hallo Leute
Ich hab mal eine allgemeine Frage.
Und zwar möchte ich jede Zelle im sheet nach einem string durchsuchen.
Die Suche klappt auch soweit.
Nur möchte ich keine 2 For next schleifen verwenden sondern:
ZeileEnde=Sheets("Tabelle1").Cells(row.count,1).End(xlUp).row
...
08.04.2009 10:06:35
Thread-ID: 1067622
3 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige
For Each OptionButton in Userform (oderFrame) mgl?
t4z

Hi Leute,
ist sowas wie im Betreff möglich?
Vielen Dank, der t4z
26.08.2009 12:14:58
Thread-ID: 1098716
8 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
In For each rng weiterspringen
Gregor

Hallo zusammen
Ich suche nach einer Zellfarbe. Die Zeile dieser Zelle wird dann bis zu 15 Zeilen erweitert und kopiert (eruiert erste und letzte zu kopierende Zeile). Anschliessend muss die Suche dieser Zellfarbe nach der kopierten Zeile weiterfahren, ansonsten werden die gleichen Zeilen me...
18.05.2010 11:00:44
Thread-ID: 1157557
4 Beiträge
"For Each" für Datein ???
lupo

Hallo Forum.
Ich möchte in einem Ordner die Namen der Datein durchsuchen und vergleichen. Ist der vergleich ungleich, so sollen die Datein gelöscht werden.
Den Vergleich führe ich über die LIKE - Funktion durch.
Damit alle Datein verglichen werden, wollte ich FOR EACH einsetzen.
...
19.10.2010 02:25:08
Thread-ID: 1182974
4 Beiträge
Dim WS as Worksheet oder as Object
Peter

Liebes Forum
Variablen für Worksheets werden teils als Worksheet und teils als Object dimensioniert.
Worin liegt der Unterschried?
Gruss, Peter
15.02.2011 21:49:40
Thread-ID: 1201041
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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