Office: (Office 2007) VBA Makro verstehen

Halo Experten,
ich versuche den Einstieg bei Vba und brauche gerne Eure Unterstützung.

Hab aus früheren Tagen ein Makro ; und kann den überhaupt nicht " lesen&verstehen ".
Würde gerne das geschriebene verstehen .

Hab irgendwo gelesen , dass man dies mit `"Text"auch normalerweise macht
`
Danke schommal im voraus

Gruß Jannils



Sub Schaltfläche115_BeiKlick()
Dim lngZeile As Long, i As Integer

With Worksheets("Tabelle1")
lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZeile, 1).Value = Worksheets("Eingabe").Range("F2").Value
.Cells(lngZeile, 2).Value = Worksheets("Eingabe").Range("AD13").Value

For i = 3 To 21
.Cells(lngZeile, i).Value = Worksheets("Auswertung").Range("E" & 6 + i).Value
Next
End With
End Sub

:)

 

Hallo

so würde ich das Makro interpretieren

Code:

MfG Tom

 

Hi Jannils,

hier ein paar Kommentare zum Code:

Code:

 

Ehe man Code verstehen kann, sollte man die Einzelbefehle verstehen.
Einfache Methode: Im VBA-Editor das jeweilige Code-Wort fokussieren und F1-Taste drücken, um die entsprechende VBA-Hilfe zu öffnen und zu studieren.

Bekannte Einzelanweisungen ergeben dann auch im Zusammenhang mit anderen einen Sinn.

 

Hallo
und danke für die schnelle Antwort.
Könnt Ihr dies für mich ( absoluter Anfänger ) dass noch tiefer, einfacher runterbrechen , dass ich das mehr nachvollziehen kann.
Wäre sicherlich hilfreich für mich.

Danke schonmal

Gruß Jannils

 

Hallo ebs 17 /Mof Guro >>> Was bedeutet das eigentlich ?

Zitiere:Einfache Methode: Im VBA-Editor das jeweilige Code-Wort fokussieren und F1-Taste drücken, um die entsprechende VBA-Hilfe zu öffnen und zu studieren.

Tja-- und das verstehe ich schon nicht. Kann ich auch nirgends in der mir vorliegenden Literatur nachvollziehen.

Gerne kleine Anweisung.
Entschuldigung --- bin Senior der sich noch gerne etwas weiterbildet.

Gruß Jannils

 

Hallo ebs 17 /Mof Guro >>> Was bedeutet das eigentlich ?

Zitiere:Einfache Methode: Im VBA-Editor das jeweilige Code-Wort fokussieren und F1-Taste drücken, um die entsprechende VBA-Hilfe zu öffnen und zu studieren.

Tja-- und das verstehe ich schon nicht. Kann ich auch nirgends in der mir vorliegenden Literatur nachvollziehen.

Gerne kleine Anweisung.
Entschuldigung --- bin Senior der sich noch gerne etwas weiterbildet.

Gruß Jannils

 

Hallo

mit der Maus in ein Wort im Code klicken und dann auf F1
dann sollte sich ein Fenster öffnen in dem Erklärungen stehen

MfG Tom

 

Hallo ebs 17 /Mof Guro >>> Was bedeutet das eigentlich ?

Zitiere:Einfache Methode: Im VBA-Editor das jeweilige Code-Wort fokussieren und F1-Taste drücken, um die entsprechende VBA-Hilfe zu öffnen und zu studieren.

Tja-- und das verstehe ich schon nicht. Kann ich auch nirgends in der mir vorliegenden Literatur nachvollziehen.

Gerne kleine Anweisung.
Entschuldigung --- bin Senior der sich noch gerne etwas weiterbildet.

Gruß Jannils

 

Hallo,
könnt Ihr mir Anfänger bitte noch diesen Code einfachst erklären ?

Dickes danke schonmal.
Komme ansonsten langsam weiter.

Gruß Jannils


For i = 3 To 21
.Cells(lngZeile, i).Value = Worksheets("Auswertung").Range("E" & 6 + i).Value

 

Hi Janils,

den entsprechenden Kommentar in meinem Code hattest du dir angeschaut?

' in erste leere Zelle ab Spalte 3 (C) bis 21 (U) Inhalte aus Tabelle "Auswertung"
' Spalte E ab Zeile 9 bis Zeile 30 eintragen

 

Hatte ich Beverly,
konnte ich aber nicht nachvollziehen, weil ich es nicht verstanden habe.
Versuch es noch einmal.

Bin halt ein VBA-"Dummy" aber lernbereit!

 

Angenommen die erste leere Zeile ist die 50, folglich wird der Wert aus Tabelle "Auswertung" Zelle E9 in C50 geschrieben, der Wert aus E10 in D50, aus E11 in E50, aus E12 in F50, aus E13 in G50 usw. bis als letztes dann in U50 der Wert aus E27 geschieben wird. Das ist also nichts anderes als ein Transponieren von E9:E27 in die Spalten C:U in der ersten freien Zeile.

Jetzt wo ich das schreibe fällt mir ein, dann man den Code auch abkürzen kann, indem man die Schleife durch genau die Funktionalität Transponieren ersetzt:

Code:

 

Hallo Beverly,
ich taste mich wie ein Blinder vor.
Jetzt erscheint folgender Hinweis.

Was bedeutet das ?

Gerne Aufklärung

Danke
Jannils


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

 

Hi Jannils,

welcher Hinweis erscheint?