Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

With Worksheets von einem UserForm aus

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

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

Forumthreads zu verwandten Themen

For each c in Bereich
Gregor

Hallo
Ich habe folgende Abfrage:
For Each c In Bereich
Wert = Cells(c.Row, 7).Value
If Wert "kein" Then
usw.
Ich möchte also bei c (Zeile) Spalte 7 den Wert abfragen und je nach Wert weiterfahren. Bereich ist in Spalte 5 definiert.
Wie komme ich zu dieser Zeilen-Nu...
24.10.2008 16:32:40
Thread-ID: 1019066
8 Beiträge
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
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
Anzeige
"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
Anzeige
twas offtopic: Forum Windows Scripting
Holger,

Guten Morgen liebes Forum,
nach Tagen voller unnützer Meetings kann ich endlich mal wieder hier weitermachen.
Parallel zu der ganzen VBA Geschichte, sollen auch Windows Scripting Host Skripte entwickelt werden.
Also habe ich mir vom Verlag Addison-Wesley ein Buc gekauft und entdecke...
22.02.2011 10:52:54
Thread-ID: 1202246
5 Beiträge
For each Zelle in Target
Chris

Hallo zusammen,
folgendes makro erhöht den Wert in Zelle L11 um 1 bzw. senkt diesen, wenn Zelle J45 größer bzw. kleiner als J45 ist. Nun möchte ich dieses Makro auf weitere Zellen ausdehen, zB. J99 und J100, J 109 und 110 (insgesamt ca. 100 Stück, also 50 Paare). Immer wenn in diesen Zellen...
05.04.2011 20:26:56
Thread-ID: 1209146
5 Beiträge
Anzeige
for each, überspringen vermeiden
Marc

Guten Morgen zusammen.
In einer Liste von Zahlen sind unter aufeinanderfolgende Leerzeilen und Textzeilen enthalten. Diese will ich mit folgender Logik eliminieren.
lz = Cells(Rows.Count, "A").End(xlUp).Row For Each cl In Range("A25:A" & lz) If IsEmpty(cl) = True Or Not IsNumeric(cl...
10.11.2011 08:30:48
Thread-ID: 1237229
6 Beiträge
Sheet mit Formatierung ohne VBA copy
Mike

Hallo,
ich habe ein "Mastersheet" mit dem Namen Daten_1 und möchte dieses gerne mehrfach kopieren
anzahl = InputBox("Wieviel Jahre sollen eingefügt werden?")
anzahl=anzahl*12 'für die Monate
ergeben sollte es dann sowas in 3 Monatsabständen.
Daten_3
Daten_6
Daten_9<...
07.03.2012 10:33:31
Thread-ID: 1253991
4 Beiträge
Makro for each Zelle In ActiveSheet
Andreas

Hallo,
ich habe funktionierendes Makro, welches mir Felder mit Kommentar das Kommentrafeld gleich groß macht. Jedoch sollte es für alle Tabellen in der Mappe funktionieren, nicht nur für die aktuell aktive.
Wie kann man das lösen? Sub Comment() Dim Zelle As Range For Each Zelle In Acti...
17.08.2012 20:37:16
Thread-ID: 1275514
8 Beiträge
for each Row in Blatt?
Maximilian

Hallo, ich bekomms nicht hin.....
Ich möchte in einem bestimmten Blatt alle Reihen durchgehen, deren Inhalte (Spalten) auf bestimmte Kriterien überprüfen, und ggf. löschen.
Wenn ich das per for-schleife mache und dann einen rauslösche, kommt die for-Schleife durcheinander.
Weiß jema...
09.01.2013 11:43:14
Thread-ID: 1293445
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige