Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform mit auswahl und FEHLER

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

Anzeige

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.


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

Beliebteste Forumthreads (12 Monate)

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