Combobox wählt Blatt und andere

Einen schönen guten Abend allesamt.
Ich hab wieder mal eine Datei hochgeladen:
https://www.herber.de/bbs/user/76136.xls
Das Problem ist Folgendes:
Wenn ich ich der Combobox 1 z.B. St1 auswähle, dann soll als aktives Blatt nach Verlassen der anfänglichen Userform das entsprechende Tabellenblatt St1 sofort zur Verfügung stehen. Ich dachte dabei, dass ich diese ganzen Tabellenblätter von St1 bis St9 ausblende, um sie dann durch eben diese Prozedur mit der Combobox sofort zur Verfügung zu haben.
Als weitere Frage stellt sich Folgendes:
Wenn obiges Problem gelöst ist, wenn also das jeweilige Tabellenblatt entsprechend der Eingabe in der Combobox 1 erscheint, muss ich die folgende Fragestellung lösen:
Wenn ich beispielsweise in der Zelle B1 des Tabellenblattes St1 die Anzahl 1 eingebe, dann soll im Tabellenblatt 'Ausdruck' in der Zelle A6 zunächst der Inhalt der Zelle A1 des Tabellenblattes St1 erscheinen, und in der Zelle B6 der Inhalt der Zelle A2 des Tabellenblattes St1.
Und dies soll für alle Tabellenblätter (St1 bis St9) und später eventuell noch darüber hinaus, für etwa 30 zusätzliche Tabellenblätter möglich sein.
Kurz: Ich wähle mit der combobox das Tabellenblatt (St1 bis St9 und später darüber hinaus), gebe neben dem ARtikel in Spalte A des Blattes eine Anzahl in die Spalte B ein. Diese wird in das Blatt Ausdruck übernommen, ebenso wie der Artikel.
Irgendwie klingt das sehr kompliziert, aber ich hoffe, es íst trotzdem verständlich.
Für Nachfragen bin ich selbstverständlich jederzeit offen.
Vielen lieben Dank schonmal im Voraus und einen schönen ABend!
Jochen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

'Code Anpassungen im Userform Code-Modul Private Sub CommandButton1_Click() Dim oSheet As Object If ComboBox1.Text = "" Or _ ComboBox2.Text = "" Then MsgBox "Wählen Sie in beiden Comboboxen etwas aus", vbExclamation, "Hinweis" Exit Sub End If Call sbBlattEinblenden(sBlattName:=Me.ComboBox1.Value) pboExit = True Unload UserForm1 End Sub Sub sbBlattEinblenden(sBlattName$) Dim oSheet As Object For Each oSheet In ActiveWorkbook.Sheets Select Case oSheet.Name Case "Personal", "Ausdruck", "Artikel" 'do nothing - diese Blätter nicht Ein-/Ausblenden Case sBlattName oSheet.Visible = xlSheetVisible oSheet.Activate Case Else oSheet.Visible = xlSheetHidden End Select Next End Sub 'Prozedur im VBA-Editor unter diese Arbeitsmappe Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wksZiel As Worksheet, ZeileZ As Long Select Case Sh.Name Case "Personal", "Ausdruck", "Artikel" 'do nothing - aus diesen Blätter keine Daten übertragen Case Else 'Eingaben/Änderungen in Spalte B der St-Blätter überwachen If Target.Column = 2 And Target.Cells.Count = 1 Then Application.EnableEvents = False Set wksZiel = Worksheets("Ausdruck") With wksZiel ZeileZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If ZeileZ

Private Sub CommandButton2_Click() 'Abbrechen-Button If MsgBox("Die Arbeitsmappe wird jetzt geschlossen", vbOKCancel, "Userform-Abrechen") = vbOK _ Then Unload Me ThisWorkbook.Close 'oder halt die Quit-Anweisung ' Application.Quit End If End Sub 'Prozedur im VBA-Editor unter diese Arbeitsmappe Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wksZiel As Worksheet, ZeileZ As Long Select Case Sh.Name Case "Personal", "Ausdruck", "Artikel" 'do nothing - aus diesen Blätter keine Daten übertragen Case Else 'Eingaben/Änderungen in Spalte B überwachen If Target.Column = 2 And Target.Row >= 4 And Target.Cells.Count = 1 Then Application.EnableEvents = False Set wksZiel = Worksheets("Ausdruck") With wksZiel ZeileZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If ZeileZ

Public Sub SearchAllTables() Dim ws As Worksheet Dim c Dim firstAddress As String Dim secAddress Dim GFound As Boolean Dim GWeiter As Boolean GWeiter = False GFound = False anf: Set ws = ActiveWorkbook.Sheets("St 4") SSearch = InputBox("Suche" & " nach:", "Search In All Tables", SSearch) If SSearch = "" Then End End If weiter: With ws.Cells Set c = .Find(SSearch, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) If Not c Is Nothing Then GFound = True ws.Select c.Select Selection.Offset(0, 1).Select firstAddress = c.Address If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbYes Then Do Set c = .FindNext(c) secAddress = c.Address If c.Address = firstAddress Then Exit Do End If c.Select Selection.Offset(0, 1).Select If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbNo Then GWeiter = True GoTo ende End If Loop While Not c Is Nothing And secAddress firstAddress And c.Address firstAddress Else GWeiter = True GoTo ende End If End If End With ende: If GFound = False Then If MsgBox("Suchwert nicht gefunden ! Neue Suche ?", vbInformation + vbYesNo) = vbYes Then GoTo anf: End If Else If GWeiter = False Then If MsgBox("Sie haben das Tabellenblatt durchsucht ! Soll die Suche neu gestartet werden ?", _ vbInformation + vbYesNo) = vbYes Then GoTo weiter End If End If End If End Sub

Sub aaSuchen() Call SearchAllTables 'Suche im aktiven Blatt Call SearchAllTables(sBlattname:="St5") 'Suche im Blatt St5 End Sub Public Sub SearchAllTables(Optional sBlattname$) Dim ws As Worksheet Dim c Dim firstAddress As String, sSearch Dim secAddress Dim GFound As Boolean Dim GWeiter As Boolean GWeiter = False GFound = False anf: If sBlattname = "" Then Set ws = ActiveSheet Else Set ws = ActiveWorkbook.Sheets(sBlattname) If ws.Visible xlSheetVisible Then If MsgBox("Blatt """ & sBlattname & """ ist zur Zeit ausgeblendet." _ & vbLf & vbLf & "Suche nicht möglich! Blatt jetzt einblenden?", _ vbInformation + vbYesNo, "Suche in Tabellenblatt") = vbNo Then Exit Sub Else ws.Visible = xlSheetVisible End If End If End If sSearch = InputBox("Suche" & " nach:", "Search In All Tables", sSearch) If sSearch = "" Then Exit Sub End If weiter:

Hallo Jochen,
ich hab die Prozedur nochmals erweitert, vor dem Eintragen der Menge im Blatt "Ausdruck" wird geprüft, ob die Artikelnummer oder ggf. auch die Artikelbeschreibung (wenn ohne Artikel-Nr. ) schon vorhanden ist.
Wird im St-Blatt die Mengeneingabe gelöscht, dann wird eine vorhandene Zeile in Ausdruck gelöscht.
Gruß
Franz

'Prozedur im VBA-Editor unter diese Arbeitsmappe
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim wksZiel As Worksheet, ZeileZ As Long, Zelle As Range
Dim iCount As Integer, vSuchen, SpSuchen As Long, bNeu As Boolean
Select Case Sh.Name
Case "Personal", "Ausdruck", "Artikel"
'do nothing - aus diesen Blätter keine Daten übertragen
Case Else
'Eingaben/Änderungen in Spalte B überwachen
If Target.Column = 2 And Target.Row >= 4 And Target.Cells.Count = 1 Then
Application.EnableEvents = False
Set wksZiel = Worksheets("Ausdruck")
With wksZiel
'Prüfen ob Artikel-Nr oder Beschreibung schon im Blatt Ausdruck vorhanden
If Target.Offset(0, 2).Value  "" Then
vSuchen = Target.Offset(0, 2).Value 'Artikel-Nr
SpSuchen = 1
Else
'Artikel hat keine Artikelnummer, Beschreibung suchen
vSuchen = Target.Offset(0, -1).Value 'Artikel-Bezeichnung
SpSuchen = 4
End If
ZeileZ = .Cells(.Rows.Count, 4).End(xlUp).Row
If ZeileZ  1 Then
MsgBox "Die Artikelbeschreibung """ & vSuchen _
& """ kommt im Blatt Ausdruck mehrfach vor." _
& vbLf & "ggf. Artikel und Mangen manuell korigieren!", _
vbOKOnly, "Artikel ohne Artikelnummer"
End If
End If
End With
If Zelle Is Nothing Then
'Artikel ist neu in Liste
ZeileZ = ZeileZ + 1
bNeu = True
Else
ZeileZ = Zelle.Row
bNeu = False
End If
End If
If bNeu = True And Not IsEmpty(Target) Then
.Cells(ZeileZ, 1) = Target.Offset(0, 2).Value 'Artikel-Nummer
.Cells(ZeileZ, 2) = Target.Value 'Menge
.Cells(ZeileZ, 3) = Target.Offset(0, 1).Value 'Mengeneinheit
.Cells(ZeileZ, 4) = Target.Offset(0, -1).Value 'Artikelbeschreibung
ElseIf bNeu = False Then
If IsEmpty(Target) Then
'Menge wurde gelöscht --> Zeile löschen
.Rows(ZeileZ).Delete
Else
'Artikel ist in Liste schon vorhanden, Menge korrigieren
.Cells(ZeileZ, 2) = Target.Value 'Menge
End If
End If
End With
Application.EnableEvents = True
End If
End Select
End Sub

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combobox wählt Blatt und andere

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread