Office: Werte in einem anderen Tabellenblatt per vba anzeigen HILFEE

Hallo Liebe Office-hilfe forum mitglieder...ich habe ein problem..ich komme mit meinem code nicht voran( oder irgendwie funktioniert das nicht. ich hoffe ihr könnt mir dabei helfen. Folgendes:

ich habe einen tabellenblatt mit einem commandbutton, wenn ich drauf klicke wird im nächsten tabellenblatt von einer datenbank werte für die jeweilige eingegebene kalenderwoche ausgelesen (Reiter1). es gibt ettliche Typen und Teile mit mengen und prozentzahlen..für mich spielt hier nur die mengen und prozentzahlen eine rolle...ich habe nämlich ein weiteres tabellenblatt mit Typen und Teilen aufgelistet jedoch unsortiert. und ich habe z.b. eine kalenderwoche in dem alle werte für die teile und unterteile anpassend angezeigt werden soll..

ich habe alles gemacht, jedoch ist mein problem dass die Menge nicht richtig angezeigt wird...es kommt immer als prozent raus=(((

hier sind 2 bilder meiner Datei:







--------------------------------------------------------

hier ist der code:

Sub Anzeigen(wo As Integer)

Dim varSpalte1
Dim vVergleich As String
Dim EndeSpalteS2 As String
Dim EndeSpalteS1 As String
Dim EndeZeileS1 As String
Dim EndeZeileS2 As String
Dim FreieZelle As String
Dim w, i, k, l, p, q As Integer
Dim Teile As String
Dim Abgmenge As String
Dim szTyp3Tab3, szZhltTab3, szAbg_MengeTab3, szZhltTab32 As String 'sz - String
Dim szTyp3Tab1, szZhltTab1, szAbg_MengeTab1, szZhltTab12 As String 'sz - String
Dim nProABC(), nCounterTreffer As Integer ' nCounterAusb
Dim nMengeABC() As Long 'nCounterMenge
Dim nFoundAbg As Boolean
Dim nSpaceCounter As Integer 'n = Integer
Dim Zaehler, Nenner, Startmenge As Integer
Dim gesamtmenge, gesamtprozent As Integer


'Suche Spalte mit richtiger KW und speichere Position in "varSpalte1"
For w = 1 To 50
If (Mid(Tabelle3.Cells(1, w), 4) = wo) Then
'MsgBox "Spalte gefunden" & Mid(Tabelle2.Cells(1, w), 4)
varSpalte1 = w
End If
Next w



k = 3 'Da keine For-Schleife verwendet wird, muss Anfangsbedingung vorher definiert werden
Do Until Tabelle3.Cells(k, 1).Value = "Ende" 'Fuere Schleife aus, solange Zelleninhalt != "Ende"
If Tabelle3.Cells(k, 1).Value <> "" Then 'Fuere Schleife aus, solange von Tab3 Spalte-Level-Typ-3 Zelleninhalt != ""
If Tabelle3.Cells(k, 1).Value = "Ende" Then
Tabelle3.Cells(k, varSpalte1).Value = ""
End If
szTyp3Tab3 = Tabelle3.Cells(k, 1) 'Tab3-Typ3 in Vergleichsvariable speichern
szZhltTab3 = Mid(Tabelle3.Cells(k, 2), 1, 8) 'Mid Tab3-Zhlt in Vergleichsvariable speichern
szZhltTab32 = Tabelle3.Cells(k, 2) ''Tab3-Zhlt in Vergleichsvariable speichern
If (InStr(szZhltTab32, "-> abg_menge") = 0) Then ' Abgangsmenge wird nicht angezeigt, falls nicht vorhanden
Tabelle3.Cells(k, varSpalte1).Value = "100%" 'Definierter Anfangswert der prozent#
nFoundAbg = False
Else
Tabelle3.Cells(k, varSpalte1).Value = 0
nFoundAbg = True
End If

'Tab3-Zhlst-Inhalt darf nicht "" oder "Totals" sein
If (szZhltTab3 <> "") And (szZhltTab3 <> "Totals") Then
l = 5 'Da keine For-Schleife, Anfangsbed. extra
nSpaceCounter = 0
nCounterTreffer = 0 'nCounterAusb
'nCounterMenge = 0
Do While nSpaceCounter <= 5 And l <= 65536 'Abbruchbedingung: Tab1 Spalte Level3-Typ darf max. 6 leere Zellen hintereinander haben UND Es darf die max. Zeilenlaenge von Excel-Tabellen nicht ueberschritten werden
szTyp3Tab1 = Tabelle1.Cells(l, 1).Value 'Tab1-Typ3 in Vergleichsvariable speichern
szZhltTab1 = Mid(Tabelle1.Cells(l, 2), 1, 8) 'Tab1-Zhlt in Vergleichsvariable speichern
szZhltTab12 = Tabelle1.Cells(l, 2) ''Tab1-Zhlt in Vergleichsvariable speichern

If (szTyp3Tab3 = szTyp3Tab1) Then 'Vergleiche ob Typ3
If (szZhltTab32 = szZhltTab12) And (nFoundAbg = False) Then 'Zhlst von Tab3 und Tab1 gleich sind
nCounterTreffer = nCounterTreffer + 1
ReDim Preserve nProABC(nCounterTreffer)
ReDim Preserve nMengeABC(nCounterTreffer) ' Erzeugung eines Arrays mit einer Größe des Zählers
nProABC(nCounterTreffer) = Tabelle1.Cells(l, 4).Value 'Arraywerte = prozentwerte
nMengeABC(nCounterTreffer) = Tabelle1.Cells(l, 3).Value 'Arraywerte = Mengenwerte
ElseIf (szZhltTab3 = szZhltTab1) And (nFoundAbg = False) Then
nCounterTreffer = nCounterTreffer + 1
ReDim Preserve nProABC(nCounterTreffer) 'Erzeugung eines prozent-Arrays mit einer Größe des Zählers
ReDim Preserve nMengeABC(nCounterTreffer) 'Erzeugung eines Mengen-Arrays
nProABC(nCounterTreffer) = Tabelle1.Cells(l, 4).Value
nMengeABC(nCounterTreffer) = Tabelle1.Cells(l, 3).Value
ElseIf (szZhltTab3 = szZhltTab1) And (nFoundAbg = True) Then
nCounterTreffer = nCounterTreffer + 1
ReDim Preserve nProABC(nCounterTreffer)
ReDim Preserve nMengeABC(nCounterTreffer)
nProABC(nCounterTreffer) = Tabelle1.Cells(l, 4).Value
nMengeABC(nCounterTreffer) = Tabelle1.Cells(l, 3).Value
End If
ElseIf (szTyp3Tab3 <szTyp3Tab1> 0) Then
If (nCounterTreffer = 1) Then
'k = Zaehlvariable fuer Tab3
'l = Zaehlvariable fuer Tab1
Tabelle3.Cells(k, varSpalte1).Value = CStr(nProABC(1)) & "%"
'Tabelle3.Cells(k, varSpalte1).Value = nMengeABC(1)
nSpaceCounter = 10 'Abbruchbed. fuer Schleife
ReDim Preserve nProABC(0)
ReDim Preserve nMengeABC(0)
ElseIf (nCounterTreffer > 1) Then
'berechne
Zaehler = 0
Nenner = 0

For i = 1 To nCounterTreffer
Zaehler = Zaehler + nMengeABC(i)
'If nProABC(i) = 0 Then
'Startmenge = 0
'Else
Startmenge = (nMengeABC(i) / nProABC(i))
Nenner = Nenner + Startmenge
'End If
Next i

'If Nenner = 0 Then
'gesamtprozent = 0
'Else
gesamtprozent = (Zaehler / Nenner)
gesamtmenge = Zaehler
'End If
Tabelle3.Cells(k, varSpalte1).Value = gesamtmenge
Tabelle3.Cells(l, varSpalte1).Value = gesamtprozent

nCounterTreffer = nCounterTreffer
nSpaceCounter = 10 'Abbruchbed. fuer Schleife
ReDim Preserve nProABC(0)
ReDim Preserve nMengeABC(0)
' ElseIf (nCounterAusb = 1) Then
' 'k = Zaehlvariable fuer Tab3
' 'l = Zaehlvariable fuer Tab1
' Tabelle3.Cells(k, varSpalte1).Value = CStr(nProABC(1)) & "%" 'Speichere prozent von Tab1 in Tab3
' nSpaceCounter = 10 'Abbruchbed. fuer Schleife
' ReDim Preserve nProABC(0)
' ElseIf (nCounterAusb > 1) Then
' 'berechne
'
' Zaehler = 0
' Nenner = 0
'
' For i = 1 To nCounterMenge
' Zaehler = Zaehler + nMengeABC(i)
' Startmenge = (nMengeABC(i) / nProABC(i))
' Nenner = Nenner + Startmenge
' Next i
'
' gesamtprozent = (Zaehler / Nenner)
' gesamtmenge = Zaehler
'
' Tabelle3.Cells(k, varSpalte1).Value = gesamtmenge
' Tabelle3.Cells(l, varSpalte1).Value = gesamtprozent
'
' nCounterAusb = nCounterAusb
' nSpaceCounter = 10 'Abbruchbed. fuer Schleife
' ReDim Preserve nProABC(0)
End If
ElseIf szTyp3Tab1 = "" Then
nSpaceCounter = nSpaceCounter + 1 'Zaehle leere Zellen, fuer Abbruchbed.
End If 'Level3-Typ und Zhlst der Tab1 und Tab3 vergleichen
l = l + 1 'Da keine For-Schleife, muss Zaehlvariable extra erhoeht werden
Loop 'Durchlauf, solange Tabelle1 Spalte Level3-Typ nicht leer
End If 'Abfrage auf szZhlstTab3 <> "" AND szZhlstTab3 <> "Totals"
End If 'Abfrage auf Inhalt Tab3 Spalte level3-Typ Zeile 1 = ""
k = k + 1 'Da keine For-Schleife, muss Zaehlvariable extra erhoeht werden
Loop 'Durchlaufe bis Inhalt Tab3-Zelle != Ende

End Sub

--------------------------------------

ich würde mich freuen wenn ihr mir weiterhelfen könnten, wäre echt dankbar=)))

 

Hallo,

das, was mir sofort aufgefallen ist, dass Du den Tücken der VBA-Deklaration erlegen bist - Du hast wahrscheinlich bisher formal mächtigere Programmiersprachen verwendet als VBA:

Folgende Deklarationen definieren mit großer Wahrscheinlichkeit einen anderen Datentyp als den von Dir gewollten:
Dim szTyp3Tab3, szZhltTab3, szAbg_MengeTab3, szZhltTab32 As String 'sz - String
Dim szTyp3Tab1, szZhltTab1, szAbg_MengeTab1, szZhltTab12 As String 'sz - String
....
Dim Zaehler, Nenner, Startmenge As Integer
Dim gesamtmenge, gesamtprozent As Integer
Bei den vorgenannten 9 rot geschriebenen Variablen wurde kein Datentyp explizit festgelegt, sodass eine implizite Typvereinbarung stattfindet - was wahrscheinlich VARIANT sein wird.
Korrekte Typisierung in VBA:
Dim szTyp3Tab3 as String, szZhltTab3 as String, szAbg_MengeTab3 as String, szZhltTab32 As String 'sz - String
Dim szTyp3Tab1 as String, szZhltTab1 as String, szAbg_MengeTab1 as String, szZhltTab12 As String 'sz - String
....
Dim Zaehler As Integer, Nenner As Integer, Startmenge As Integer
Dim gesamtmenge as Integer, gesamtprozent As Integer
wobei der Datentyp Integer einen Wertbereich -32768 bis +32767 besitzt (2-Byte Größe), ansonsten müsste der Datentyp Long verwendet werden (4-Byte Größe).
Oder aber Du verwendest die Typenkurzkennzeichen: $ für String, % für Integer, & für Long, ! für Single, # für Double, @ für Currency:
Dim szTyp3Tab3$, szZhltTab3$, szAbg_MengeTab3$, szZhltTab32$ 'sz - String
Dim szTyp3Tab1$, szZhltTab1$, szAbg_MengeTab1$, szZhltTab12$ 'sz - String
....
Dim Zaehler%, Nenner%, Startmenge%
Dim gesamtmenge%, gesamtprozent%
Für Byte und Variant gibt es kein Typenkurzkennzeichen.

Den restlichen Code habe ich noch nicht analysiert, aber vielleicht ist eh bereits mit der Umtypisierung das Problem behoben.

EDIT:
Gleiches wie vorhin gilt natürlich auch für:
Dim w, i, k, l, p, q As Integer
Korrekte Deklaration:
Dim w%, i%, k%, l%, p%, q%

 

Nein nein, es ist schon richtig wie ich es definiert habe...mein Problem liegt nur darin, dass die Zeile mit...->abg_menge nicht richtig angezeigt wird.

 

Hallo,

aufgefallen ist mir bei etwas genauerer Durchsicht des Codes folgende Zeile:

Code:

          ElseIf (szTyp3Tab3 < szTyp3Tab1 > 0) Then

Diese IF-Bedingung kann nie TRUE werden, zumindest nicht unter VBA:
Ergibt der Stringvergleich von szTyp3Tab3<szTyp3Tab1 den boolean-Wert TRUE, so muss er, wenn er mit dem folgenden num. 0 verglichen werden soll, in einen num. Wert umgewandelt werden, was den num.Wert -1 ergibt.
Ist der Stringvergleich FALSE, ergibt das als num.Wert 0.
Sowohl -1 als auch 0 sind stets <=0 und nicht >0, was somit stets FALSE ergibt.