Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > User-Projekte > SuFu für Reifenlager
Komplexe Projekte - gemeinsam erstellt!
In diesem Board befinden sich 69 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH.
Seite 1 2 3 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


orion01 ist offline orion01  SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.2.2014 - 10:51 Uhr
17 Posts
Stammgast


Hallo Gemeinde
Wieder mal ein neuer, der auf den Namen Franz hört. Ich habe von einem entfernten Verwandten eine Dateivorlage für ein Reifenlager bekommen, welche ich gern in der Firma, in der ich beschäftigt bin, einsetzen möchte. Die Datei hat auch ein Makro integriert, mit dem ich aber absolut nicht zurecht komme.
Also beschreibe ich mal: Es gibt 7 Regalreihen mit je 4 Etagen. Die Regalreihen sind mit A - G gekennzeichnet. In den Regalen A - D gibt es 9 Fächer, im Regal E 10 Fächer und in den Regalen F und G je 8 Fächer. Mit der vorhandenen SuFu und der Eingabe einer Einlagerungsnummer findet das Programm zwar immer die richtige Regalreihe (z.B. A4) aber die Fachnummer wird nicht richtig ausgegeben. Außerdem wird nach der ersten Ausgabe nicht weitergesucht, aber pro Radsatz gibt es schließlich immer vier Ergebnisse. In der Spalte A sind die Fächer durchnummeriert. Ich habe da schon ein wenig herumprobiert und bin dorthin gekommen, dass die Fächer von oben nach unten (intern) die Bezeichnungen -1, 0, 1 - 8 erhalten haben, was aber natürlich nicht mit der Durchnummerierung in der Tabelle übeinstimmt. Vielleicht könnte mir jemand behilflich sein, mein Problem zu lösen

orion01 hat folgende Datei angehängt:

[link=./gallery/12_from_orion01_reifenlager (final) geändert.xlsm]12_from_orion01_reifenlager (final) geändert.xlsm | Dateigrösse: 37 KB


RO_SCH ist offline RO_SCH  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
16.2.2014 - 11:04 Uhr
2406 Posts
Super-Moderator


HI,

lädst du bitte die Datei nochmal ohne Umlaute hoch ?

Da schwächelt unsere Forums-Software ein wenig - das packt sie einfach nicht.

Gruß Roland

orion01 ist offline orion01  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.2.2014 - 11:09 Uhr
17 Posts
Stammgast


ich versuch es mal

orion01 hat folgende Datei angehängt:

12_from_orion01_reifenlager (final) geaendert.xlsm | Dateigrösse: 37 KB


RO_SCH ist offline RO_SCH  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
16.2.2014 - 12:16 Uhr
2406 Posts
Super-Moderator


Hi,

tausche einfach diese Zeile im Code
Fach = (ActiveCell.Row - 10) / 6

gegen diese aus
Fach = (ActiveCell.Row - 2) Mod 6

Funktioniert es so wie gewünscht ?

Gruß Roland

RO_SCH ist offline RO_SCH  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
16.2.2014 - 13:04 Uhr
2406 Posts
Super-Moderator


Hi,

hab die Datei mal komplett überarbeitet - sollte jetzt passen.

RO_SCH hat folgende Datei angehängt:

12_from_RO_SCH_reifenlager.xlsm | Dateigrösse: 39 KB



Gruß Roland

orion01 ist offline orion01  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.2.2014 - 14:19 Uhr
17 Posts
Stammgast


Hat Dir eigentlich schon mal jemand gesagt, dass Du "Spitze" bist? Nein? Ich tu´s !!!!
Herzlichen Dank für die schnelle und kompetente Hilfe.

Gruß Franz

orion01 ist offline orion01  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.2.2014 - 15:31 Uhr
17 Posts
Stammgast


Es tritt doch noch ein Problem auf: Wenn ich einen neuen Reifensatz mit neuer Einlagerungsnummer eingebe, wird der nicht gefunden. Es öffnet sich ein Fenster mit dem Text

Laufzeitfehler ´9´:
Index außerhalb des gültigen Bereichs

Konkret habe ich versucht, den Reifensatz mit der Einlagerungsnummer 211 einzutragen und ihn dann suchen zu lassen - mit obigem Ergebnis

Gruß Franz

orion01 ist offline orion01  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.2.2014 - 15:43 Uhr
17 Posts
Stammgast


Ha --- ich bins noch mal - das passiert also, wenn man nicht aufpasst - die 211 war schon vergeben und er akzeptiert den gleichen Wert wohl nur vier mal. Allerdings kommt eine Fehlermeldung

Laufzeitfehler `91´:

Objektvariable oder With-Blockvariable nicht festgelegt

beim suchen eines nicht vorhandenen Wertes. Lässt sich das so einrichten, dass er statt dieser Fehlermeldung den Text "nicht vohanden" (oder so ähnlich) auswirft?

Gruß Franz

Ste_Ro ist offline Ste_Ro  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.2.2014 - 16:07 Uhr
568 Posts
Top-User


Hallo Franz,

wenn ich das richtig verstanden habe, wolltest du die Fundstellen markieren?
Falls ja, habe ich Rolands genialen Code mal etwas erweitert... probiers mal.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub AlleSuchen()
   Dim lRow As Long, lCol As Integer
   Dim rngFind As Range, c As Range
   Dim strTitel As String
   Dim Ze As Long, Sp As Integer
   Dim Regal As String, Fach As Integer, Platz As Integer
   Dim fAdr As String
   Dim y As Boolean, i As Byte
   Dim arrFind(0 To 3) As Variant
   
   With Worksheets("Lagerplätze")
   
   For Each c In .Range("B3:AI62") 'Färbung zurücksetzen
   If c <> "" Then c.Interior.ColorIndex = 6
   Next
   
   strTitel = InputBox("Suche nach:", "Suchbegriff eingeben", , 3, 5)
   
   'Abbruch, wenn nichts in der Inputbox steht bzw. abgebrochen wird
   If strTitel = "" Then Exit Sub
   
   lRow = .Cells.Find(what:="*", _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlPrevious).Row
   Set rngFind = .Range("B1:AI" & lRow)
   End With
   
   i = 0
   With rngFind
      Set c = .Find(strTitel)
      fAdr = c.Address
      If Not c Is Nothing Then
         Do
            Ze = c.Row
            Sp = c.Column
            Platz = ((Ze - 2) Mod 6)
            If Platz = 0 Then Platz = 6
           
            y = True
 
            arrFind(i) = "Regal " & Cells(2, Sp) & " Fach " & _
            Cells(Ze - (Platz - 1), 1).Text & " Platz " & Platz
            c.Interior.ColorIndex = 3 'Fundzellen färben
            i = i + 1
           
            Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> fAdr
      End If
   End With
   If y Then
      MsgBox Join(arrFind, vbCrLf)
   End If
End Sub

Gruß Steffen
Microsoft Office 2003

Schaut auch hier mal vorbei...


Ste_Ro ist offline Ste_Ro  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.2.2014 - 16:22 Uhr
568 Posts
Top-User


Hi Franz,
der Laufzeitfehler tritt auf, weil du mit

1
Dim arrFind(0 To 3)

das Arrayfeld auf vier Zellen beschränkt hast!
Erhöhe einfach den Bereich und der Fehler ist weg.

Gruß Steffen
Microsoft Office 2003

Schaut auch hier mal vorbei...


orion01 ist offline orion01  Re: SuFu für Reifenlager Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.2.2014 - 19:32 Uhr
17 Posts
Stammgast


nein nein - die Begrenzung auf vier Einträge ist völlig in Ordnung. Sie hat mir zum Beispiel gute Dienste geleistet, um Fehleinträge lokalisieren zu können. Mir geht es lediglich darum, diese Zeile aus der VBA-Programmierung

MsgBox "Es wurde nichts gefunden"

auch dann zu sehen, wenn kein entsprechender Eintrag vorhanden ist.

Gruß Franz

Seite 1 2 3 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek