Buchen Neu

[michel34497]

Hallo Stefan!
Danke für die Hilfe von dir!

Vieleicht fällt dir ja noch irgendetwas ein!
Teste und tüfftle noch ein bischen, vieleicht gibts ja noch einen anderen Lösungansatz.

[WergibtmirRat]

Hallo Micha
ich komm bei dir nicht klar.
Wo beginnt man mit seiner Eingabe.
Fehlerteufel entdeckt, weiss aber nicht ob der für dich von Interesse ist
UF Bezahlen

Code:

Private Sub TextBox4_Change() 'nicht flase, kann dann nicht funzen
End Sub

Bitte erkläre dein Vorgehen in deinem Progi

mfg

[michel34497]

Hallo Leute!

@Frank
Sorry einfach vergessen, war so damit beschäftigt das andere problem zu lösen!
Mach mal so:
Auswahl des Spielers in CB1, dann eine Wert EINGABE nur in TextBox3 und schaue was passiert!

Bei mir funtzt das alles :05: !

@ Alle
Nach hunderten versuchen mit meinen unwissen, brauche ich eure Hilfe.

Wie ja schon alles beschrieben, möchte ich mit mit Auswahl aus CB3 den dazugehörigen Wert in TB5 einlesen und noch einiges anders machen.
Stefan hat ja schon geschrieben wie ich die CB3 einlesen kann, bekomme aber es aber einfach nicht hin die dazugehörigen wert in TB5 einzulesen.

Wie bekomme ich das hin :16: ?

Vieleicht ist Stefan ja auch schon weiter!

[Steffl]

Hallo Michael,

das mit dem Befüllen der Textbox5 und Textbox6 geht mit folgendem Code. ist nur ein Beispiel, es gibt sicherlich bessere Codes.

Code:

Private Sub ComboBox3_Change()
   If ComboBox3.ListIndex > -1 And ComboBox3.Value <> "" Then
      TextBox5.Value = Format(Worksheets("Startblatt").Range("AF15").Offset( _
      Application.WorksheetFunction.Match(ComboBox3.Value, Worksheets("Startblatt").Range("B16:B20"), 0)), "#,##0.00 €")
   Else
      TextBox5.Value = ""
   End If
End Sub

Private Sub ComboBox4_Change()
   If ComboBox4.ListIndex > -1 And ComboBox3.Value <> "" Then
      TextBox6.Value = Format(Worksheets("Startblatt").Range("AF15").Offset( _
      Application.WorksheetFunction.Match(ComboBox4.Value, Worksheets("Startblatt").Range("B16:B20"), 0)), "#,##0.00 €")
   Else
      TextBox6.Value = ""
   End If
End Sub

Nachtrag: Bei den anderen Baustellen passe ich. Ich habe auch in den nächsten Tagen keinen Zugriff auf den Computer.

[michel34497]

Hallo Stefan!
Danke für die Hilfe!
Warum, wir sind schon bald beim ziel! Bitte nicht aufgeben.
Ich werde jetzt selber nochmal versuchen was zusammen zu Basteln
melde mich bald wieder!

[michel34497]

Hallo Leute!
Brauche mal wieder Hilfe! Sehe warscheinlich wieder den Wald vor lauter........

Wie in der Antwort von Stefan schon beschrieben Lese ich mit CB3 die Namen aus Startblatt aus und dann soll der dazu gehörige Betrag in TB5 angezeigt werden. Das alles funktioniert. Nun möchte ich erstmal noch eins:
Wenn der Betrag aus dem Startblatt eingelesen wurde, soll ein "x" eine Spalte daneben in der Zeile eingetragen werden.

Private Sub ComboBox3_Change()
If ComboBox3.ListIndex > -1 And ComboBox3.Value <> "" Then
TextBox5.Value = Format(Worksheets("Startblatt").Range("AF15").Offset( _
Application.WorksheetFunction.Match(ComboBox3.Value, Worksheets("Startblatt").Range("B16:B20"), 0)), "#,##0.00 €")

TextBox1.Value = Format(CDbl(TextBox5), "#,##0.00 €")

Else
TextBox5.Value = ""
End If
End Sub

Wie geht das?
Kann einer schnell helfen?

An alle ein Tausend Dankeschön!

[michel34497]

Hallo Leute!
Habe eine Lösung gefunden

Code:

Private Sub ComboBox3_Change()
  
  Dim wksSrc As Excel.Worksheet
  
  Set wksSrc = ThisWorkbook.Worksheets("Startblatt")
  
  If ComboBox3.ListIndex >= 0 Then
    TextBox5.Value = Format$(wksSrc.Range("AF15").Offset(1 + ComboBox3.ListIndex).Value, "#,##0.00 €")
    wksSrc.Range("AG15").Offset(1 + ComboBox3.ListIndex).Value = "x"
    TextBox1.Value = TextBox5.Value '???
  Else
    TextBox5.Value = ""
  End If
  
End Sub

[michel34497]

Hallo Leute!
Habe einiges umgebaut und eingefügt in den Code's.
Brauche aber jetzt mal wieder Hilfe von euch!
Möchte folgendes machen:
Wenn in CB1 ein Name ausgewählt ist soll der Code erst alle offenen Beträge in der Übersicht in die ListBox1 einlesen, dies funktioniert.
Dann soll er den Betrag aus Startblatt auch in die ListBox1 einlesen das geht mit Stefan's Code auch. Soweit gibt es erstmal keine Probleme!
Was ich möchte ist aber jetzt wenn er den Betrag aus Startblatt eingelesen hat, soll dieser auch in der Übersicht erscheinen mit Datum.
Dann kann dieser betrag nach jetzigen Stand vom Code auch gebucht werden.
Wie geht das, daß der Code in die nächste frei Zeile den Betrag und das Datum schreibt?

Danke schon mal im vorraus an alle dei Antworten!
Bitte nur diese Datei verwenden!

[michel34497]

Hallo Leute!
Hat den keiner eine Idee wie man das machen kann?
Ich habe versucht den Orginal Code so umzubauen, wenn ich den Namen in der ComboBox1 auswähle er dann den Betrag in die Übersicht schreibt.

Code:

Public Sub Test()

  Dim lAktZeile As Long
  Dim lAktSpalte As Long
  Dim lAktName As String
  Dim lAktKegelb As Long
    
  Dim i As Long
  Dim r As Variant
  Dim k As Long
  Dim wb As Workbook
  Dim wsStart As Worksheet
  Dim wsUebersicht As Worksheet
  
  Dim lngErste As Long
  Dim varDatum As Variant
  Dim loLetzte2 As Long
    Unload Willkommen
    
  
  Set wb = ActiveWorkbook
  Set wsStart = wb.Worksheets(cStart)
  Set wsUebersicht = wb.Worksheets(cUebersicht)
  
  
    If Range("Datum") = "" Then
        MsgBox "Es ist kein Datum eingetragen."
        Range("Datum").Select
        
        Exit Sub
    End If
  
  With Worksheets("Übersicht")
        loLetzte2 = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
        If loLetzte2 < 5 Then loLetzte2 = 5
        varDatum = Application.Match(Range("Datum"), .Range("A6:A" & loLetzte2), 0)
        If IsNumeric(varDatum) Then
            MsgBox "Dieser Tag wurde schon gebucht." & vbLf & vbLf _
            & "Zum Nachbuchen bitte das entsprechende Formular aufrufen."
            Exit Sub
   Else

r = ComboBox1.Value
  'r = cZErsteStart(ComboBox1.Value)
  lAktName = ComboBox1.Value
  
  If lAktName <> "" Then 'Do While lAktName <> ""
  
    For i = cZErsteUebersicht To 1000
      If wsUebersicht.Cells(i, 1).Value = "" Then
        lAktZeile = i
        Exit For
      End If
    Next
    
    For i = 2 To 200
      If wsUebersicht.Cells(cZErsteUebersicht, i).Value = lAktName Then
        lAktSpalte = i
        Exit For
      End If
    Next
  
  'If wsStart.Cells(ComboBox1, cSpSumme).Value < 0 Then
    
    wsUebersicht.Cells(lAktZeile, lAktSpalte + 1).Value = wsStart.Cells(r, cSpSumme).Value

      Else

    wsUebersicht.Cells(lAktZeile, lAktSpalte).Value = wsStart.Cells(r, cSpSumme).Value
    
  
  End If
    
   If wsStart.Cells(r, cSpKegelb).Value <> 0 Then
    
    
    wsUebersicht.Cells(lAktZeile, lAktSpalte + 2).Value = wsStart.Cells(r, cSpKegelb).Value * -1
      Else
    
    End If
    
    
    'r = r + 1
    lAktName = wsStart.Cells(r, cSpName).Value
    
  End If
  'Loop

   Application.ScreenUpdating = False
      
  wsUebersicht.Cells(lAktZeile, 1).Value = wsStart.Cells(cZErsteStart - 2, cSpDatum).Value
  
  MsgBox "Summen für den " & wsStart.Cells(cZErsteStart - 2, cSpDatum).Value & " wurde gebucht.", vbInformation + vbOKOnly, "Information"

  'End If
  End With
End Sub

Hat auch ein bissel funktioniert doch mit jeder erweiterung gab es mehr fehler!
Kann vieleicht doch noch einer helfen?
Es kann auch sein das ich wieder einmal zu ungeduldig bin!

[Steffl]

Hallo Michael,

teste mal.

PS: Wie sieht es bei Dir übernächstes Wochenende aus?