Office: Hilfe bei VBA

Hallo zusammen,

benötige eine Funktion, die eine Tabelle Zeile für Zeile durchgeht und nach der ersten leeren Zelle sucht. Hat es diese gefunden, soll es 5 Zeilen nach unten springen
und hier die Werte von einem anderen Tabellenblatt eintragen.
Möchte darauf hinweisen, dass ich relativer Anfänger bin, deshalb bitte einfach und deutlich erklären.

Danke im Voraus
Andy

 

Hi Andy,

soll die erste freie Zelle in einer bestimmten Spalte gesucht werden oder generell im Tabellenblatt - also unabhängig von einer Spalte?

Bis später,
Karin

 

Hallo Karin,

Die erste freie Zeile soll in der Spalte 1 gesucht werden.

Bis später,
Andy

 

Hi Andy,

die letzte belegte Zelle in Spalte A kannst du auf diese Weise ermitteln:

Code:

[TABLE="width: 80"]
<tbody>[TR]
[TD="width: 80"]    Dim lngLetzte As Long[/TD]
[/TR]
[TR]
[TD]      lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count,   1).End(xlUp).Row, Rows.Count)[/TD]
[/TR]
</tbody>[/TABLE]

Somit wäre die 1. freie Zeile lngLetzte + 1 und 5 Zeilen unter der letzten belegten Zelle wäre lngLetzte + 6

Da ich nicht weiß von welchem Tabellenblatt aus übernomemn werden soll und in welche Spalten, kann ich das nur ganz allgemein schreiben - nach diesem Prinzp:

Code:

Cells(lngLetzte + 6, 1) = Worksheets("Tabelle2").Tange("A1")
Cells(lngLetzte + 6, 2) = Worksheets("Tabelle2").Tange("B1")

Bis später,
Karin

 

Möchte aus dem Tabellenblatt "LAB" die ersten 11 Spalten ab 5 Zeilen unter der letzten belegten Zeile übertragen!
Bin soweit mal gekommen:

lngLetzte = IIf(IsEmpty(Worksheets("LAB opti").Cells(Rows.Count, 1)), Worksheets("Lab opti").Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

For k = 1 To 11
Worksheets("LAB opti").Cells(lngLetzte + 6, k) = Worksheets("LAB").Cells(i, k)
Next k


Leider kommt bei mir beim Test ein Anwendungs- und Objektorientierter Fehler...
Bitte um Hilfe :)

 

Hi,

dann solltest du vielleicht mal deine Arbeitsmappe hochladen - in meiner Arbeitsmappe kommt kein Fehler.

Bis später,
Karin

 

Hallo Karin,

im Anhang die Excel Datei!
Habe das letzte Sub ausgeklammert, damit es durchläuft!
Setze ich den Kommentare weg bringt es mir den Anwendungs- und Objektorientierten Fehler...

Danke für deine Hilfe
Andy

 

Hallo Andy,

setzt mal "Option Explicit" ganz oben in die erste Zeile vor Deinen Code, und drücke dann auf "Debuggen".
Dann wird Dir angezeigt dass Du die Variable "lngLetzte" nicht definiert hast.

Auf das "Option Explicit" sollte nie verzichtet werden.
Im Makroeditor kannst Du oben über den Reiter "Extras", dann "Optionen", dann "Editor" und dann Haken bei "Variablendeklaration erforderlich" einstellen, dass dieser Ausdruck automatisch beim öffnen eines neuen Moduls schon da steht.
So vergisst man ihn nicht.

Ich hoffe geholfen zu haben.

 

@Andy,

wenn du nur das Makro gewichte_berechnen() ausführst, ist i = 0, deshalb der Fehler.


@Achim,

ich stimme dir zwar zu, dass man Option Explicit aktivieren sollte, aber dass die Variable lngLetzte nicht deklariert ist, löste keinen Fehler aus.

---