Excel/VBA - variablen definieren & einsetzen?? hilfe?! ;(

Excel/VBA - variablen definieren & einsetzen?? hilfe?! ;( (12 Beiträge, 165 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

hallo liebe forum-gemeinde,

ich habe für meine excel liste, etwas mit VBA programmiert - welche mit meiner exceltabelle in form von "zellen & zeilenabhängigkeiten" eng verbunden ist. das ganze muß ich jetzt aber 10mal kopieren.

schaut ca. so aus:
Case "J18"
If Target.Value = "-" Then
Rows("19:20").Hidden = False
Else
Rows("19:20").Hidden = True
End If

so und das möchte ich jetzt so weiterkopieren:

KOPIE 1 (=Kunde2)
Case "J118"
If Target.Value = "-" Then
Rows("119:120").Hidden = False
Else
Rows("119:120").Hidden = True
End If

KOPIE 2 (=Kunde3)
Case "J218"
If Target.Value = "-" Then
Rows("219:220").Hidden = False
Else
Rows("219:220").Hidden = True
End If

und das aber mit 30zeilen code,... und ich möchte mir das leben etwas einfacher machen und am anfang jeder kopier (sprich gleichzeitig kunde) eine variable definieren die mir das erledigt: und so sollte es etwa aussehen:

KOPIE 1 (=Kunde2)
variable = var2

Case "J(var2)18"
If Target.Value = "-" Then
Rows("(var2)19

var2)20").Hidden = False
Else
Rows("(var2)29

var2)20").Hidden = True
End If

KOPIE 2 (=Kunde3)
variable = var3

Case "J(var3)18"
If Target.Value = "-" Then
Rows("(var3)19

var3)20").Hidden = False
Else
Rows("(var3)29

var3)20").Hidden = True
End If

ich kanns leider nicht besser ausdrücken

hoffe es ist verständlich genug, was mein problem ist?!

ich möchte wissen wie man eine variable definieren kann bzw. wie man sie auch einsetzen kann

die hilfe beim excel hat mir da auch nicht weitergeholfen

vielleicht kann mir von euch jemanden helfen?!

big thanks im *TRÖT*
lg
daniela

ähm, wenn ich dich richtig verstehe möchtest du die fixen zeilen werte durch eine variable ersetzen, welche du in einer schleife veränderst.

das geht mit:

Dim i
i = 15
Range("C" & i).Select

bzw. in deinem fall Case ("C" & i)

und bei den rows mit Rows(i).Hidden = True

hoffe ich konnte dir helfen...

ja genau das meinte ich

danke dir - vielelicht kannst mir noch kurz helfen bitte, den genau so gehts nicht

so schaut es jetzt aus:

    Dim i
    i = 10
    Range("I" & i).Select

    Application.EnableEvents = False
    Select Case Target.Address(0, 0)


        'Kundeneingabe
        Case ("I" & i + 8)
            If IsEmpty(Target) Then
                Rows("i + 9 :  i + 20").Hidden = True   'hier hab ich noch problem,
                                                                        'wie löse ich das den??
                Else
                Rows("19:20").Hidden = False                'so sollte es ausschaun
            End If

könnte ich auch für das I (spalte) eine variable erstellen?! oder wird das ganze dann zu kompliziert?

danke dir!!

lg
daniela

das mit den rows kannst du entweder über eigene variabelen machen

Dim i
Dim a
Dim b

i = 15
a = i + 9
b = i + 10

Rows(a & ":" & b).Select
Selection.EntireRow.Hidden = True

oder so...

Rows(i + 8 & ":" & i + 10).Select

spalten kannst du auch mit variablen machen

Dim a
a = "J"
Range(a + "30").Select

ich glaub du kannst sie auch irgendwie numerisch machen ... da müßt ich aber nachschaun...

ohh klassseee!!! super danke dir!!!

nur das mit den spalte

wie schaut der code aus wenn ich beides in einer haben will??

Dim r
r = 10
c = D
Range(c + r).Select

und dann hier einsätzen:

        Case (c & r + 8)
            If IsEmpty(Target) Then
                Rows(r + 9 & ":" & r + 10).Hidden = True
                Else
                Rows("19:20").Hidden = False
            End If

hmm komisch, habs vorher probiert da hab ich eine fehlermeldung bekommen, egal jetzt gehts eh!!

danke dir!! danke!

hier hab ich leidernoch ein problem!!

      Application.EnableEvents = False
      Select Case Target.Address(0, 0)
        Case (s1 & k1 + 10)
             If IsEmpty(Target) Then
                Target.FormulaLocal = "SUMME(k1 + 11 & ":" & k1 + 18)"
             End If

bei bildung der summe, bekomm ich jetzt noch die fehlermeldung?!

danke dir rehctherzlich!!
liebe grüße
daniela

ok ... wichtig ist die deklaration der variablen ...

also

Dim r
Dim c

r = "10" (<-- die zahl muß unter "" stehen!!!)
c = "D"

dann sollte es so funktionieren

        Case (c & r + 8)
            If 1 = 1 Then
                Rows(r + 9 & ":" & r + 10).Hidden = True
                Else
                Rows("19:20").Hidden = False
            End If

und die summe sollte so gehen

Target.FormulaLocal = "=SUMME(" & k1 + 11 & ":" & k1 + 18 & ")"

also wenn ich das richtig verstehe willst du beginnend bei Zeile 18 alle 100 Zeilen überprüfen
ob ein - drinnensteht, wenn ja dann die nächsten 2 zeilen ausblenden, hier der code:
Ich habs dir auch schon für mehrere Spalten vorbereitet

dim lngRow as long
dim intColumn as integer
dim wks as worksheet

set wks=activesheet 'das aktive Blatt wird verwendet, alternativ verwende:
'set wks=worksheets("tabelle1") 'du musst halt das ' vom anfang der zeile löschen

for lngrow=18 to 2000 step 100 'hier die start und endzeile eintragen sowie schrittweite
   for intcolumn=10 to 20 step 2 'hier die spalten eintragen die auf das "-" überprüft werden
       if trim(wks.cells(lngrow,intcolumn).text)="-" then 'trim entfernt leerzeichen
           wks.rows(lngrow+1).hidden=true 'zeile ausblenden
           wks.rows(lngrow+2).hidden=true 'noch eine ausblenden
           exit for 'raus aus der schleife für die spalten
       end if
   next intcolumn 'nächste spalte
next lngrow 'nächste Reihe

mfg

Penguin

hallo!! danke für deine mühe, nur tue mir schwer mit meinen (fast) nicht vorhandenen vba kenntnissen deinen code zu verstehen

ich habs wohl nicht gut erklärt, ich weis - wusste nicht besser wie?!

lg
daniela

ich sagte ja, es ist schwierig eine lösung abzugeben wenn man das problem nicht kennt, ich kann noch immer nur raten was genau du eigentlich machen willst.
am einfachsten wäre es du schickst mir entweder deinen kompletten code, dann kann ich ihn für dich überarbeiten, oder du versuchst genauer zu erklären was passieren soll

mfg

Penguin

ah ja, generell kann ich dir aber nur raten die zahlen (wenn dus schon so verwenden willst) dennoch als integer oder long werte zu speichern (nicht als text) und dann anstatt mit + mit & einzubinden.:

das zB:
Target.FormulaLocal = "=SUMME(S & k1 + 11 : S & k1 + 18)"
kann nicht funktionieren.
richtig hieße es:
target.formulalocal="=sum(s" & k1+11 & ":S" & k1+18 & ")"

das hier ebenfalls:
Rows("k2 + 9 : k2 + 20")
sollte:
rows(k2+9 & ":" & k2+20)

mfg

Penguin

aha, danke dir schön!!! wieso eigendlich?! gibs einen bestimmten grund?

danke dir für deine hilfe und mühen!! habs schon gepackt das ganze!!

lg
daniela

naja mit strings rechnen ist wie sich mit der rechten hand am linken ohr kratzen!

das & wandelt dann die integer zahl in einen textwert um - bzw. erstellt quasi eine temporäre kopie, der wahre wert bleibt nicht angetastet.

grundsätzlich würd ich aber generell eher die finger von diesen Text angaben lassen, für deine Anforderung daher lieber:

ActiveSheet.Range(Rows(k1), Rows(k2)).Hidden = true

wobei k1 halt die erste, k2 die zweite zeile zum verstecken sein muss.

mfg

Penguin

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung