Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
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
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Next ohne for?

Next ohne for?
05.07.2017 09:31:12
Christian
Moin,
bekomme gerade diesen Fehler und verstehe ihn nicht...?
Viele Grüße
Christian

'Simulation
Dim lz As Long
Dim j As Integer
lz = tblPlan.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With tblPlan
lz = .Cells(1, 1).End(xlDown).Row
MSN = Worksheets("Simulation").Range("B3")
'Suche MSN Zelle in Dockplan
For j = 2 To lz
If .Cells(j, 1) = MSN Then
tblPlan.Cells(j, 23).Value = "X"
Exit For
Next j
End With

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
End If fehlt oT
05.07.2017 09:35:53
Anton
Danke :) gerade bemerkt
05.07.2017 09:37:59
Christian
Kann ich dir noch eine weitere Fragen stellen? Kann ich so in der gewünschten Zelle ein X in die Zelle übertragen? Reicht es einfach nur "X" zu schreiben?
Viele Grüße
Christian
meine Pause ist zu Ende oT
05.07.2017 09:43:49
Anton
Warum VBA?
05.07.2017 10:47:22
RPP63
Moin!
Warum VBA, das ist doch eine WENN()-Formel auf Anfänger-Niveau?
ab W2: =WENN(A2=Simulation!B$3;"X";"")
Gruß Ralf
AW: Warum VBA?
05.07.2017 10:57:01
Christian
Moin,
der Anwender wählt eine Maschine in der Zelle B3 aus. Es soll ein X in einer Tabelle für Plandaten gesetzt werden und ein X über Sverweis im Bedienungsmenü erscheinen. Dann wählt der Nutzer eine neue Maschine aus und überlegt ob er hier auch ein X setzen will.
Die Daten sollen also in der Tabelle Plandaten für die ausgewählten Maschinen gesicherten werden.
Ein Button zum fixiern, den anderen zum wieder löschen. Anbei eine Beispieldatei
https://www.herber.de/bbs/user/114705.xlsm
Vielen Dank für euren Support und viele Grüße
Christian
Sub Commandbutton_Fixieren_MSN_Click()
'Simulation
Dim lz As Long
Dim j As Integer
lz = tblPlan.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With tblPlan
lz = .Cells(1, 1).End(xlDown).Row
MSN = Worksheets("Simulation").Range("B3")
'Suche MSN Zelle in Dockplan
For j = 2 To lz
If .Cells(j, 1) = MSN Then
tblPlan.Cells(j, 23).Value = "X"
End If
Exit For
Next j
End With
End Sub

Sub Commandbutton_EntFixieren_MSN_Click()
'Simulation
Dim lz As Long
Dim j As Integer
lz = tblPlan.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With tblPlan
lz = .Cells(1, 1).End(xlDown).Row
MSN = Worksheets("Simulation").Range("B3")
'Suche MSN Zelle in Dockplan
For j = 2 To lz
If .Cells(j, 1) = MSN Then
tblPlan.Cells(j, 23).Value = ""
End If
Exit For
Next j
End With
End Sub

Anzeige
So nicht?
05.07.2017 13:14:40
Christian
Den eigentlich müsste es doch wirklich so simple sein? Wo kann mein Fehler sein? Ich weiss nicht wie es in diesen konkreten Fall ohne VBA lösen soll.

158 Forumthreads zu ähnlichen Themen

VBA - Berechnung ohne Formeleintrag
kasi

Hallo liebe Excelprofis,
im Grunde bin ich jemand der lieber allein etwas herausfindet als jemanden um Hilfe zu bitten, aber ich weiß jetzt einfach nicht weiter :-(
Nach 6 Tagen rumforschen in allen möglichen Foren geb ich mich geschlagen und will nun doch hier fragend mein Glück versuc...
18.02.2009 02:59:00
Thread-ID: 1051668
4 Beiträge
Anzeige
Versand Tabellenblatt ohne Formel OHNE VBA
Stef@n

Hallo
auf Basis der Antworten des Threads
https://www.herber.de/forum/messages/1117576.html
habe ich folgenden Code, der auch einwandfrei funktioniert ! (Mail wird erst versandt, wenn in
der Zelle O10 der Text "VERKAUF" steht.
Nur eine Nachfrage:
Es wird das Blatt kop...
16.11.2009 15:07:38
Thread-ID: 1117637
9 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
Anzeige
Addition per VBA ohne Formel
MikeS

Hallo Leute,wer kann mir bei meinen bescheidenen VBA-Anfängen helfen?Mit nachfolgendem Code möchte ich in jedem Tabellenblatt die Zellen A1:A3 summieren.Nach dem Durchlauf aller Blätter soll die Gesamtsumme in Tabelle1-Zelle B1 reingeschrieben werden.Was stimmt hier nicht?Vielen Dank
MikeS
05.06.2002 21:02:45
Thread-ID: 126298
3 Beiträge
direkte Zellformatierung ohne VBA
WalterDa

Kennt jemand eine Möglichkeit, ohne VBA, sondern direkt über Eingabe von Formeln, in Zellen Formatierungen durchzuführen?
Ich möchte z.B. die aktive Zelle farbig markieren, wenn die aktive Zelle einen Wert und die Zelle daneben keinen Wert enthält.Gruß Walter
10.06.2002 07:39:47
Thread-ID: 127374
4 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
Formel & steuerelement ohne VBA
Mister-B

Hallo,
in einer Tabelle habe ich einen Checkbox. Wie kann ich erreichen, ohne VBA, dass eine Formel guckt ober der Box aktivert ist?
Gruß
Martin
21.04.2012 16:13:36
Thread-ID: 1260382
4 Beiträge
For Schleife mit If/Else im Userform
Black-Mage

Hallo ihr lieben, ich habe folgendes Problem:
Ich habe ein Userform das durch klick auf eine Schaltfläsche ein 2tes Userform öffnet, in dem einige Werte eingetragen werden sollen.
Wenn ich nun im UF2 auf ok klicke Prüfe ich mit einer For schleife, ob alle Textboxen auch ausgefüllt wurd...
01.11.2012 19:45:30
Thread-ID: 1284895
7 Beiträge

Links zu Excel-Dialogen

CommandButton

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