Office: Hilfe bei VBA

Helfe beim Thema Hilfe bei VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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,... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von ahnudlyk, 16. März 2012.

  1. ahnudlyk Neuer User

    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
     
    Zuletzt bearbeitet: 16. März 2012
    ahnudlyk, 16. März 2012
    #1
  2. Beverly
    Beverly Erfahrener User
    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
     
    Beverly, 16. März 2012
    #2
  3. ahnudlyk Neuer User
    Hallo Karin,

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

    Bis später,
    Andy
     
    ahnudlyk, 16. März 2012
    #3
  4. Beverly
    Beverly Erfahrener User

    Hilfe bei VBA

    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
     
    Beverly, 16. März 2012
    #4
  5. ahnudlyk Neuer User
    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 :)
     
    ahnudlyk, 18. März 2012
    #5
  6. Beverly
    Beverly Erfahrener User
    Hi,

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

    Bis später,
    Karin
     
    Beverly, 18. März 2012
    #6
  7. ahnudlyk Neuer User
    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
     
    ahnudlyk, 19. März 2012
    #7
  8. fette Elfe Erfahrener User

    Hilfe bei VBA

    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.
     
    fette Elfe, 19. März 2012
    #8
  9. Beverly
    Beverly Erfahrener User
    @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.


    Hilfe bei VBA [​IMG]Hilfe bei VBA [​IMG]
     
    Beverly, 19. März 2012
    #9
Thema:

Hilfe bei VBA

Die Seite wird geladen...
  1. Hilfe bei VBA - Similar Threads - Hilfe VBA

  2. Hilfe

    in Microsoft Excel Hilfe
    Hilfe: Liebe Alle, ich bin ganz neu in diesem Forum und bräuchte Hilfe zu einem Excel Projekt. Ich möchte (siehe Bild 1) das die Felder die dort ausgefüllt werden automatisch in Bild 2 übertragen in...
  3. Hilfe beim Makro

    in Microsoft Excel Hilfe
    Hilfe beim Makro: Hallo alle! Kennt sich jemand von euch beim Thema Makros aus und könnte mir bei meiner Angelegenheit helfen? Ich habe unten eine Datei angehängt. Ich habe dort 2 Register: Einmal "Reinkopieren"...
  4. VBA Editor - Hilfe benötigt - Speichern, nur wenn Felder gefüllt

    in Microsoft Excel Hilfe
    VBA Editor - Hilfe benötigt - Speichern, nur wenn Felder gefüllt: Hallo liebes Forum, habe schon etwas rumprobiert - komme aber leider nicht mehr weiter mit VBA (Anfänger): Ich habe folgende Aufgabenstellung: Spalte A (Artikel) bekommt Werte eingepflegt Spalte...
  5. Hilfe dringend benötigt :)

    in Microsoft Excel Hilfe
    Hilfe dringend benötigt :): Hallo zusammen, ich brauche dringend eure Hilfe. Ich bin leider absolut keine Excel-Expertin und brauche für meine Arbeit dringend eine VBA Programmierung und eine Tabelle, die automatisiert...
  6. Microsoft Excel - VBA Hilfe

    in Microsoft Excel Hilfe
    Microsoft Excel - VBA Hilfe: Hallo Zusammen, vorweg bitte ich mein Unwissen zu entschuldigen, leider habe ich noch nie mit VBA gearbeitet und somit quasi keine Kenntnisse. Folgendes Szenario: Zelle C12 enthält Preis X...
  7. Excel VBA Suche mit Hilfe Command Buttons anzeigen

    in Microsoft Excel Hilfe
    Excel VBA Suche mit Hilfe Command Buttons anzeigen: Hallo Ich habe eine UserForm erstellt, welche mit voneinander Abhängige Comboboxen sucht. Dabei wurde mir schon geholfen in diesen Forum. Ich würde mir gerne das Ergebnis mithilfe eines...
  8. Excel VBA Suche mit Hilfe von Comboboxen in Anhängigkeiten

    in Microsoft Excel Hilfe
    Excel VBA Suche mit Hilfe von Comboboxen in Anhängigkeiten: Hallo Ich bin unerfahren im Bereich VBA und versuche mich aber grade an einer (für mich) sehr komplexen Aufgabe. Ich würde gerne eine Suche über eine UserForm mit 4 Comboboxen erstellen....
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden