Wie verweise ich auf ein anderes Arbeitsblatt in Excel VBA?

Hallo ich habe eine Eingabemaske erstellt, wo ich Daten eintragen kann und diese Automatisch eingefügt werden. Jetzt habe ich das Problem das dieses "Einfügen" immer in der Arbeitsmappe passiert wo das Fenster geöffnet wird.

Ich würde es gerne so machen das Ich in Tabellenblatt "A" den Button habe um das Fenster zu Öffnen, und das diese eingetragenen Daten in Tabellenblatt "Datenbank" eingefügt werden.

Hier ist mein aktueller Code.

Bild zum Beitrag

Danke schonmal im voraus :D

2 Antworten

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

26.08.2022, 13:29

Teste mal:

Dim last As Integer
last = Sheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Row + 1

With Sheets("Datenbank")
  .Cells(last, 1).Value = Textbox_Datum
  .Cells(last, 2).Value = Textbox_Abteilung
  'usw.
End With

Und wenn Du Deinen Code nicht als Bild, sondern, so wie ich, hier als "Quelltext" einfügst, hast Du wesentliche bessere Chancen, dass Dir geholfen wird, weil man ihn dann kopieren kann und nicht abtippen muss.

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

29.08.2022, 13:23

Siehe andere Antwort von oubyi. Es ist wichtig, dass du dich immer um das komplette Objekt kümmerst. "Cells" ist NUR ein Teil davon.

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zur Frage

Wie kopiert Excel in VBA eine Zeile in ein anderes Tabellenblatt in die NÄCHSTE LEERE ZEILE?

Hi,

ich habe eine Frage zu Excel VBA!

Da ich mich nicht besonders gut auskenne, werde ich ein Makro erstellen welches die ganze Zeile einfach in ein anderes Tabellenblatt kopiert. Dieses Makro möchte ich dann so ändern, dass die kopierte Zeile im anderen Tabellenblatt, in dem sie eingefügt werden soll, in die nächste LEERE Zeile eingefügt wird. Könnt ihr mir bitte schreiben, wie dieser Befehl heißt, bzw. was ich machen muss?

Und noch eine Frage:

Kann man Makros via Wenn-Funktion ansprechen, wenn ja, wie?

Danke für die Antworten schon im Voraus!

...zur Frage

Mehrere Zeilen in VBA einlesen und ausgeben?

Hallo,

ich habe mich in letzter Zeit in VBA eingearbeitet und bräuchte etwas Hilfestellung. Ich möchte, dass der User mehrere Zeilen untereinander markiert und diese daraufhin auf ein anderes Tabellenblatt genauso untereinander eingefügt werden. Hab es mit der application.InputBox Type 64 schon probiert, aber das klappt nicht ohne manuelle Eingaben.

...zur Frage

Das Tabellenblatt öffnet sich nicht?

Hallo, ich habe Button womit ich eine Datei und darin direkt eine Eingabemaske öffnen will. Mein bisheriger Code aktiviert / öffnet die Datei, was mir fehlt, ist die direkte Anzeige der Eingabemaske. Ich stelle den Code mal hier ein, um vielleicht eine Lösung zu erhalten. Ich komme einfach nicht weiter.


Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim passwort As String
    Dim pfad_zur_datei As String
    Dim wb As Workbook
    Dim bestaetigung As VbMsgBoxResult

    ' Bestätigungsnachricht anzeigen und Passwort abfragen
    bestaetigung = MsgBox("Möchten Sie fortfahren?", vbQuestion + vbYesNo, "Bestätigung")

    ' Wenn der Benutzer auf "Ja" klickt
    If bestaetigung = vbYes Then
        passwort = InputBox("Geben Sie das Passwort ein:", "Passwortabfrage")

        ' Überprüfe das eingegebene Passwort
        If passwort = "123" Then ' Ersetze "dein_passwort" durch das gewünschte Passwort
            ' Konstruiere den vollständigen Pfad zur Datei
            pfad_zur_datei = "G:\NEU Reduziert für DEMO.xlsm" ' Passe den Pfad an

            ' Überprüfe, ob das Arbeitsblatt "Auswahlklick" existiert
            On Error Resume Next
            Set ws = Workbooks.Open(pfad_zur_datei).Worksheets("Auswahlklick")
            On Error GoTo 0

            ' Wenn das Arbeitsblatt existiert, aktiviere es
            If Not ws Is Nothing Then
                ws.Activate
            Else
                MsgBox "Das Arbeitsblatt 'Auswahlklick' wurde nicht gefunden.", vbExclamation
                Exit Sub
            End If
        Else
            MsgBox "Falsches Passwort. Der Zugriff wurde verweigert.", vbExclamation
            Exit Sub
        End If
    Else
        MsgBox "Vorgang abgebrochen.", vbInformation
        Exit Sub
    End If

    ' Hier den restlichen Code ausführen, der auf dem geöffneten Arbeitsblatt "ws" basiert

End Sub

...zur Frage

VBA für Excel Verknüpfungen aktualisieren?

Hallo alle zusammen,

ich bin am verzweifeln.. :-(

Ich möchte über VBA Verknüpfungen in einem aktiven Tabellenblatt ändern. Ich finde aber immer nur Antworten wie man Verknüpfungen der gesamten Arbeitsmappe ändert.

Die Verknüpfungen beziehen sich auf ein anderes (nicht aktives) Tabellenblatt in der selben Arbeitsmappe.

In der Zelle steht zum Beispiel =WENN(ISTFEHLER('04.2016'!$C8);"";'04.2016'!$C8) und VBA soll mir aus '04.2016' nun '06.2016' machen.

Bei meiner VBA Idee kommt immer der Fehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht) und kennzeichnet Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks) an

Hier meine VBA Idee. Wer kann mir helfen? Dank Euch im Voraus.... :-)

Sub Verknüpfungenaktualisieren()

Dim Vardat As Variant Dim strNeuerLink As String

strNeuerLink = "'06.2016'" strAlterLink = "'04.2016'"

Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsEmpty(Vardat) Then

MsgBox "Keine Verknüpfungen enthalten!"

Exit Sub

End If

For intz = 1 To UBound(Vardat)

If Vardat(intz) = ActiveSheet.Path & "(" & strAlterLink Then ActiveSheet.ChangeLink ActiveSheet.Path & "(" & strAlterLink, _ ActiveSheet.Path & "(" & strNeuerLink, xlExcelLinks

Exit For

End If

Next intz

End Sub

...zur Frage

Arbeitsblatt per VBA umbenennen?

Hallo zusammen,

ich benötige wieder einen Denkanstoß.

Ich habe Arbeitsblätter die ich per VBA umbenennen möchte.

Der Name des Tabellenblatt welches umbenannt werden soll steht im aktiven Tabellenblat in Zelle A1 und der neue Name des Tabellenblatt steht in Zelle A2 des aktuellen Tabellenblatt.

...zur Frage

Excel VBA, ComboBox + intelligente Tabelle?

Hallo, ich habe folgenden Code:

ComboBox1.RowSource = Worksheets("tabelle3").Range("intelligentetabelle[spalte1]").Address

Diesen Code führe ich auf einer Userform auf einem anderen Tabellenblatt, dem ersten, aus. Das Problem ist, jedes mal zieht sich die ComboBox die daten aus dem ersten Tabellenblatt und nicht aus dem dritten der intelligenten Tabelle. Wie kann ich das beheben?

Danke!

...zur Frage

Brauche hilfe in VBA Excel. Wie kann man aus einer erstellten Rechnung daten in einer neuen Tabelle speichern?

Hallo, Ich habe in Excel ein Rechnungsformular geschrieben. Nun soll die erstellte Rechnung (Tabellenblatt 1) (wo z.B. Adresse, Name, Rechnungsnummer, Preis, Artikel usw.) in einem neuen Tabellenblatt (Tabellenblatt 2) gespeichert werden. (also die relevanten Daten wie oben geschrieben) Außerdem will ich auch Rechnungen anhand der Rechnungsnummer suchen lassen und sie erscheinen lassen. Ich habe einen Button erstellt wo sich eine Userform öffnet und dort soll man eine vorhandene Rechnungsnummer suchen können. Excel soll dann die Daten aus Tabellenblatt 2 nehmen und sie wieder in einem neuen Tabellenblatt (Tabellenblatt 3) einfügen, das die gleiche Formatierung hat wie Tabellenblatt 1. Also Tabellenblatt 1 dient dazu neue Rechnungen zu erstellen, Tabellenblatt 2 soll die eingegebenen Daten aus Tabellenblatt 1 übernehmen und Tabellenblatt 3 soll dazu dienen die Werte aus Tabellenblatt 2 richtig als wieder Rechnung auszugeben. Hoffentlich ist das verständlich und ihr könnt mir helfen. MFG

...zur Frage

Kann mir bitte jemand helfen?

Hallo,

Meine eigentliche Frage ist folgende:

Wie lese ich aus einer Textzeile die Daten aus und speichere sie in einer anderen Arbeitsmappe mittels vba?

ich kenne mich nicht mit excel vba aus

möchte dennoch ein Regal Programm erstellen. Wie in beiden Bildern mit gelb markiert ist lese ich den Inhalt der Textzeile aus und gebe ihn in der Arbeitsmappe bei a1 aus. Jedoch bekomme ich es nicht hin es in die 2. arbeitsmappe (blau markiert) auszugeben und nicht in die aktuelle. Geht das?

Ergänzung: falls sich noch jemand damit auskennt wie man das in der zweiten speichert und Dan tabellarisch immer einen darunter speichert und das andere nicht überschreibt kann das am Ende auch noch anmerken. Danke im Voraus schonmal.

...zur Frage

Excel Formel werden falsch übertragen?

Hey Leute,

ich habe ein Problem mit der fortlaufenden Übertragung der Formel. Über ein Eingabefenster werden die Daten Teile, Datum usw. in die Datenbank übertragen und dabei automatisch eine neue Tabellenzeile eingefügt. Nun ist aber das Problem, dass unter der Spalte Daten die Formel =ZÄHLENWENN nicht richtig weiter übertragen wird sondern der Bereich (in diesem Fall von ($D$14:D21;D21) auf ($D$14:D22;D21)) erweitert wird. Dadurch werden die Daten nicht mehr richtig gezählt. Kann mir da jemand weiterhelfen?

...zur Frage

Kann ich auch die Farben in meiner Excel-Tabelle übernehmen?

Ich habe eine Datenbank, wo die Daten festgeschrieben sind und eine Suchfeld wo die Werte ausgespuckt werden.

Im Datenbank stehen aber Werte mit Farben und diese Farben sind wichtig. Grün bedeutet der Wert ist erledigt, Gelb ist in Progress und Rot dass es nicht angefangen wurde.

Mein =FILTER Formel sieht so aus:

=FILTER(Tabelle4[#Alle];ISTZAHL(SUCHEN(L3;Tabelle4[[#Alle];[Fahrzeugbezeichnung]])))

Kann ich mit der Formel auch die Farben von der unteren Tabelle übernehmen? Oder kann mir jemand dafür VBA Antwort geben?

...zur Frage

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zur Frage

Zellen per VBA markieren und löschen?

Hallo,

ich bin gerade dabei ein kleines Lagerverwaltungssystem per Excel zu schreiben und ich hänge an einer Stelle. Ich will, dass wenn ich in meiner Eingabemaske einen bestimmten Button drücke, sich nochmal ein Fenster öffnet in dem ich eine Zahl eingebe (z.B. 4). Darauf sollen dann 4 Zellen in der Spalte A markiert und gelöscht werden, die einen bestimmten Inhalt haben.

Kann mir jemand weiterhelfen? :(

...zur Frage

Excel Eingabemaske zum Datenbank erstellen

Hallo, vielleicht kann mir jemand von euch helfen. Ich möchte für meinen Job eine Exceltabelle erstellen und zwar soll die Folgendes beinhalten.

Auf dem ersten Tabellenblatt sollen die Daten erfasst werden und die Daten sollen automatisch nach der Eingabe auf dem zweiten Tabellenblatt abgespeichert werden.

BSP: Siehe Bilder im Anhang

Ich hoffe jemand kann mir dabei helfen und mir Tipps geben.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen