Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userform mit auswahl und FEHLER

Userform mit auswahl und FEHLER
29.06.2005 11:44:58
Andy
Hallo Zusammen,
ich möchte gerne den folgenden Script erweitern. bei Aufruf sol ein Userform aufgehen mit einer auswahlliste die aus einer TRabelle bezogen wird. nun muß eine dieser Auswahlen ausgewählt werden sonnst wir der Vorgang nicht fortgesetz und als steigerung muß nun noch dieser Wert mit den anderesn zusammen in die nächse Zeiler der tabelle geschriebn werden leider habe ich bei meiner Funktion noch einen Fehler kann mir da jemand helfen

Sub Entnehmen()
Sheets("Hauptmenü").Select
Dim myRange As Range
Dim mybuch As Integer
Set myRange = Range("A1:A9999")
myMatch = Range("B8")
mybuch = Range("F8")
nummer = Application.WorksheetFunction.Match(myMatch, myRange, 0)
Cells(nummer, 9).Value = Cells(nummer, 9).Value - mybuch
Sheets("Daten").Select
Range("A2").Select
For laufnummer = 2 To 9999
Cells(laufnummer, 1).Select
If ActiveCell <= 1 Then
End If
Next laufnummer
laufnummer = 0
Cells(1, 1).Select
Mldg = "Keine weiteren Einträge möglich!                                                                                                                                                                                                                                                                                                                              Prüfen Sie, welcher Auftrag gelöscht werden kann, löschen diesen und versuchen Sie es dann erneut!"
Stil = vbOKOnly + vbExclamation
Title = "Programmfehler: Liste ist voll"
Ergebnis = MsgBox(Mldg, Stil, Title)
If Ergebnis = vbOKOnly Then
GoTo Beenden
End If
Cells(1, 1).Select
GoTo Beenden
Exit Sub
Cells(laufnummer, 1).Select
ActiveCell.FormulaR1C1 = mybuch
Cells(laufnummer, 2).Select
ActiveCell.FormulaR1C1 = myRange
Sheets("Hauptmenü").Select
MsgBox "Eine Ausbuchung wurde vorgenommen"
Beenden:
Cells(1, 1).Select
Sheets("Hauptmenü").Select
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform mit auswahl und FEHLER
29.06.2005 11:50:21
Andy
Den Fehler habe ich gefunden

Sub Entnehmen()
Sheets("Hauptmenü").Select
Dim myRange As Range
Dim mybuch As Integer
Set myRange = Range("A1:A9999")
myMatch = Range("B8")
mybuch = Range("F8")
nummer = Application.WorksheetFunction.Match(myMatch, myRange, 0)
Cells(nummer, 9).Value = Cells(nummer, 9).Value - mybuch
Sheets("Daten").Select
Range("A2").Select
For laufnummer = 2 To 9999
Cells(laufnummer, 1).Select
If ActiveCell <= 1 Then
GoTo NeuerTyp
End If
Next laufnummer
laufnummer = 0
Cells(1, 1).Select
Mldg = "Keine weiteren Einträge möglich!                                                                                                                                                                                                                                                                                                                              Prüfen Sie, welcher Auftrag gelöscht werden kann, löschen diesen und versuchen Sie es dann erneut!"
Stil = vbOKOnly + vbExclamation
Title = "Programmfehler: Liste ist voll"
Ergebnis = MsgBox(Mldg, Stil, Title)
If Ergebnis = vbOKOnly Then
GoTo Beenden
End If
Cells(1, 1).Select
GoTo Beenden
Exit Sub
NeuerTyp:
Cells(laufnummer, 1).Select
ActiveCell.FormulaR1C1 = mybuch
Cells(laufnummer, 2).Select
ActiveCell.FormulaR1C1 = myMatch
Sheets("Hauptmenü").Select
MsgBox "Eine Ausbuchung wurde vorgenommen"
Beenden:
Cells(1, 1).Select
Sheets("Hauptmenü").Select
End Sub

Anzeige
AW: Userform mit auswahl und FEHLER
29.06.2005 12:07:29
Hajo_Zi
Hallo Andy,
mal ein Zitat aus DEinem Beitrag:
"Den Fehler habe ich gefunden"
Warum ist der Beitrag dann noch offen.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


AW:Fehler weg Fragen noch offen
29.06.2005 12:18:06
Andy
Hallo Hajo,
Fehler gefunden aber die anderen Fragen die ich gehabt habe habe ich immer noch

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige