Office: (Office 2007) VBA Makro verstehen

Hallo Beverly,
siehe Text in "rot"


Sheets("Eingabe").Select
ActiveWindow.SmallScroll Down:=-9


Gruß Jannils

 

Hi Janils,

so etwas steht nicht in meinem Code. Hast du eventuell die Makroaufzeichnung noch laufen?

 

Hallo Beverly,

m.e. nein.
Ergänzt: Woran erkenne ich das ?

Habe aber gewisse Anpassungen gemacht auf "meine Eingaben und meine Auswertungen "

Gruß Jannils

 

Hallo Beverly,
hier mein aktueller Code.

Entschuldigung---hätte ich auch direkt erledigen sollen.

Gruß Jannils


Sub Schaltfläche115_BeiKlick()
Dim lngZeile As Long, i As Integer
With Worksheets("Tabelle1")
' letzte benutzte Zeile in Spalte A + 1
lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
' erste leere Zelle Spalte A = Inhalt aus H2 Tabelle "EingabeTest"
.Cells(lngZeile, 1).Value = Worksheets("Eingabe").Range("H2").Value
' erste leere Zelle Spalte B = Inhalt aus O19 Tabelle "EingabeTest"
.Cells(lngZeile, 2).Value = Worksheets("EingabeTest").Range("O18").Value
' E9:E42 kopieren
Worksheets("Auswertung").Range("E9:E42").Copy
' transponiert in erste freie Zeile ab Spalte C einfügen (nur Werte)
.Cells(lngZeile, 3).PasteSpecial Paste:=xlValues, Transpose:=True
End With
End Sub

 

Hi Jannils,

auch mit deinem angepassten Code gibt es bei mir kein Problem und ich kann nicht erkennen, dass irgendwin Hinweis kommt.

 

Hallo Beverly,
ich geb es dann erstmal auf.
Bekomme den Makro nicht zum Laufen.
Kann es an der Schaltfläche liegen? Hab ich auch mehrfach neu erprobt.
Ohne Erfolg.

Man kann wohl doch nicht so nebenbei auf die Schelle Vba lernen.*mad.gif*
Gut Ding will Weile haben.
Danke für Deine Geduld.

Jannils

 

Hi Jannils,

ich lehne es ab, übers Internet in fremde Arbeitsmappen zu schauen *wink.gif* , aber bei einer hochgeladenen Arbeitsmappe könnte man sich das Problem mal anschauen.

 

Hallo Beverly.
>> ich würde ja gerne aber wie )
Nur das finde ich nicht bei mir .
Jetzt bin ich auch noch blind geworden , scheinbar
Laut Forumsregel. ist es mir erlaubt Dateien anzuhängen

Text aus Hilfe-Datei
Um eine Datei einem neuen Beitrag anzufügen, klicken Sie einfach unten auf der Beitragsseite auf die 'Anhänge verwalten'-Schaltfläche, dann auf 'Durchsuchen' und wählen Sie die Datei, die Sie von Ihrem lokalen Laufwerk anfügen möchten


und jetzt auch noch die Grußformel versäumt zu schreiben.
Entschuldigung

Danke
Gruß Jannils

 

Hallo,

Klicke neben "Antworten" auf "Erweitert" und Scrolle dann nach unten zu den "Zusätzlichen Einstellungen". Beim zweiten Punkt kannst du eine Datei anhängen.

VG

 

DANKE>> habe ich nun gesichtet.
Sollte man vielleicht im Hilfe Thema einfacher beschreiben

Jannils

 

Hallo Beverly,
habe jetzt mit Unterstützung meine Musterman Datei hochgeladen.
Gerne Hilfe und Erklärungen wo die Fehler liegen.

Möchte lernen und etwas VbA verstehen.
Gruß und dank

Jannils

 

Hi Jannils,

das PW für das VBA-Projekt musst du schon aufheben, denn wie soll ich testen können, was bei einem Code nicht funktoniert, wenn ich ihn nicht sehen kann? Außerdem wäre eine Beschreibung hilfreich was man tun muss, um den Fehler auszulösen.

 

Hallo Beverly
OHJE--was ist PW ?

Das Makro funktioniert einfach nicht wenn ich auf die Befehlstaste drücke

Gruß Jannils

 

Hi Jannils,

PW = Passwort. Dein VBA-Projekt ist mit einem Passwort geschützt, sodass man den Code nicht sehen kann.

Welche "Befehlstaste" meinst du? Es gibt eine Schaltfläche bei AG11 - klickt man dort darauf, passiert nichts (zumindest kommte kein Fehler, auch wenn ich nicht weiß was dort ablaufen soll, da ich den Code nicht sehen kann). Und es gibt eine Schaltfläche bei O36 - klickt man darauf, kommt die Meldung "Makro Schaltfläche 179_KlickenSieAuf..... kann nicht ausgeführt werden...." Das kann ich auch nicht testen aus demselben Grund.

 

Hallo Beverly

a.) PW ---tcd

b.) AG 11 > bekomme ich nicht gelöscht
O 36 > sollte der Start Button sein.

Gruß Jannils