Thema Datum  Von Nutzer Rating
Antwort
27.12.2022 07:57:30 Daniel
NotSolved
27.12.2022 09:28:29 ralf_b
NotSolved
27.12.2022 17:48:24 Gast21299
NotSolved
27.12.2022 20:22:19 ralf_b
NotSolved
Rot Tabelle sortieren
28.12.2022 06:46:58 Gast82412
NotSolved
28.12.2022 06:54:05 Gast80956
NotSolved
28.12.2022 09:46:06 ralf_b
NotSolved
28.12.2022 22:29:41 Paul Lenz
NotSolved

Ansicht des Beitrags:
Von:
Gast82412
Datum:
28.12.2022 06:46:58
Views:
163
Rating: Antwort:
  Ja
Thema:
Tabelle sortieren

Guten Morgen,

das ist der komplette Code für ein Tabellenblatt.

Private Sub CommandButton1_Click()
Dim lastRow As Long
Application.ScreenUpdating = False
Tabelle2.Unprotect Paßwort
Tabelle2.Activate
'###################################################
FormLager.Label36.Caption = ActiveSheet.Name
'###################################################
With FormLager
If FormLager.TextBox1 = "" Then
MsgBox " Bitte eine Stückzahl eintragen!", 48
FormLager.TextBox1.SetFocus
GoTo ende
End If
lastRow = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row + 1
'A=Datum, B=Eingang, C=Ausgang, C4=Summe(Bestand)
'#############################################################################
'Prüfen
If FormLager.optAusgang.Value = True Then
If Tabelle2.Cells(4, 3).Value < (TextBox1.Value * 1) Then
'Angeforderter Wert
MsgBox "Lagermenge zu klein!", 48
GoTo ende
End If
End If
If .optEingang.Value = True Then
Tabelle2.Cells(lastRow, 1).Value = Format(Now, "dd.mm.yyyy  hh:mm:ss")
Tabelle2.Cells(lastRow, 2).Value = TextBox1.Value
Else
Tabelle2.Cells(lastRow, 1).Value = Format(Now, "dd.mm.yyyy  hh:mm:ss")
Tabelle2.Cells(lastRow, 3).Value = CDbl(.TextBox1.Text)
End If
'Sortieren
Tabelle2.Range("A6:C" & last Row).Sort _
    Key1:=Tabelle2.Cells(, 1), Header:=xlYes, Order1:=xlDescending,       'xlAscending   'xlDescending

.optAusgang.Value = True
.TextBox1 = ""
.TextBox1.SetFocus
End With
Call Summ
If FormLager.optAusgang.Value = True Then
Call Überpf
End If


ende:
'############################################################################
'Lagerbestand anzeigen
FormLager.Label35.Caption = ActiveSheet.Range("C4")
'Listbox füllen ### bis zum Tabellen Ende (noch programieren)################

'ListBox1.RowSource = ActiveSheet.Range("A6:C15").Address(external:=True)
'Tabelle2.Range ("A6:C" & lastRow)
'ListBox1.RowSource = Tabelle2.Range("A6:C" & lastRow) '.Address(external:=True)

With Tabelle2 'Sheets("kundendaten")
FormLager.ListBox1.List = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3).Value
End With
'############################################################################

Tabelle2.Protect Paßwort
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Call CommandButton1_Click
End If
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.12.2022 07:57:30 Daniel
NotSolved
27.12.2022 09:28:29 ralf_b
NotSolved
27.12.2022 17:48:24 Gast21299
NotSolved
27.12.2022 20:22:19 ralf_b
NotSolved
Rot Tabelle sortieren
28.12.2022 06:46:58 Gast82412
NotSolved
28.12.2022 06:54:05 Gast80956
NotSolved
28.12.2022 09:46:06 ralf_b
NotSolved
28.12.2022 22:29:41 Paul Lenz
NotSolved