Exel VBA Code?

Hallo Zusammen,

Ich bräuchte eine VBA Code, vielleicht kann mir da ein Experte weiter helfen. Ich möchte, wenn ich auf die Schaltfläche klicke in Tabelle2 (Siehe Bilder), dass Exel mir die Werte die ich gelb markiert habe, kopiert und anschließend in Tabelle1 immer in die leere Zeile die jeweiligen Werte einfügt. Ich hoffe ich habe es ausreichend erklärt.

Würde mich freuen wenn mir jemand da helfen könnte :)

Bild zum Beitrag

1 Antwort

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

02.11.2022, 13:32

Ich habe das erstmal nur für die Auftragsnummer geschrieben:

Private Sub CommandButton1_Click()
Range("F2").Copy Sheets("Tabelle1").Cells(Rows.Count, 7).End(xlUp).Offset(1, 0)
End Sub

Für die anderen Fälle einfach die Zeile kopieren anpassen und darunter setzen.
Dabei steht die 7 für die Spalte G, weil es die 7. Spalte ist.

Hilft Dir das?

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

SamxOff

Beitragsersteller

02.11.2022, 13:37

Wunderbar, funktioniert einwandfrei. Großes Dankeschön! :)

Oubyi, UserMod Light

02.11.2022, 13:50

@SamxOff

Gern geschehen. 😊

Ähnliche Beiträge

Problem mit VBA Excel: Wert Finden und Zeilen daneben ersetzen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zum Beitrag

Zeile kopieren mit Bedingung?

Guten Morgen zusammen,

ich möchte gerne folgendes mit einem Marko lösen.

In einer Daten Tabelle sind sämtliche Werte vorhanden. Diese sollen in ein Tabellenblatt Tabelle 2 kopiert werden.

Die letzte Zeile bestimme ich über

' Bestimmung der Anzahl der ausgefüllten Zellen in Spalte 3

Sheets("DATEN").Select

FinalRow = Cells(Rows.Count, 3).End(xlUp).Row

Nun möchte ich folgendes in Tabelle2 umsetzten.

Daten Spalte B soll nach Tabelle2 Spalte C kopiert werden

Daten Spalte C soll nach Tabelle2 Spalte D kopiert werden

Daten Spalte D soll nach Tabelle2 Spalte E kopiert werden

Nun soll in Spalte F eine Unterscheidung stattfinden,

Wenn in Spalte D eine 1 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte F kopiert werden

Wenn in Spalte D eine 0 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte G kopiert werden

Wie könnte dieses mit einem Makro realisiert werden?

Vielen Dank für euere Unterstützung.

Tobias

...zum Beitrag

Exel VBA Problem. Erwartet Anweisungsende?

Hi,

ich möchte mithilfe einer VBA Schaltfläche eine Formel in eine Zelle schreiben, bekomme aber mal den Fehler: erwartet Anweisungsende und mal einen Syntaxfehler

With ThisWorkbook.Worksheets("Tabelle1").Activate

Range("K20").Value = "=WENN(B25="4:3";E10/0,8;WENN(B25="16:9";E10/0,87;"Fehler"))"

End With

End Sub

...zum Beitrag

Wie kann ich in VBA Zellen summieren?

Bin absoluter VBA-Neuling! Ich möchte von einem Arbeitsblatt "Tabelle1" jeweils 2 Zellen aus Spalte B summieren und in "Tabelle2" Spalte B anzeigen lassen. Also quasi Tabelle1(B1+B2) in Tabelle2(B1), Tabelle1(B3+B4) in Tabelle2(B2) und so weiter. Wie geht das?

...zum Beitrag

Mit VBA in Excel zu einer Zeile in einem anderen Worksheet springen?

Hi,

momentan habe ich in meiner Tabelle1 einen Code, welcher bei änderungen in spezifischen Spalten, die Zeilenzahl in das Worksheet "Tabelle7" schreibt.

Eigentlich möchte ich es aber so schreiben, dass wenn ich jezt auf die Zelle im Worksheet "Kontrolle" klicke, ich ganz automatisch zu der Zeile springe, welche momentan in "Tabelle7" steht.

Ich habe überlegt, dass mit einem Makro zu machen, welchen man anklickt, dann die entsprechende Zelle in "Tabelle7" auswählt und somit zum Worksheet "Tabelle1" in die richtige Zeile wechselt. Scharfen Beobachtern wird nun allerdings auffallen, dass ich keine Ahnung habe, wie ich den Zellenwert von Tabelle7 als Zeilenziel für Tabelle1 einstelle. ;D

Wäre echt super wenn mir da jmd helfen könnte. Alternative Lösungsvorschläge sind auch immer gerne gesehen.

PS: Ich rufe über Tabelle7 das Makro auf, da ich es nciht hinbekomme, ohne Modul worksheetübergreifende Makros zu schreiben.

...zum Beitrag

Excel: nach zeile einfügen zeichen in bestimmte spalte der eingefügten zeile eintragen?

In einer Vergleichstabelle, ist eine Schaltfläche mit der eine Zeile kopiert wird, die darunter eingefügt wird.

In die neu kopierte Zeile soll in Spalte B ein u eingetragen werden.

Welchen Syntax braucht es dafür?

Range("B ").Value = "u"

...zum Beitrag

Excel VBA jede n-te Zeile finden und bei der Ausgabe die Steps ignorieren?

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

Dim bereich1 As Range

Dim bereich2 As Range

Dim x As Integer

Dim y As Integer

Dim ZeilenNr As Integer

'Den Bereich auswählen

Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

Set bereich2 = Range("Tabelle1!B5:B30000")

'Zeilen zählen

ZeilenNr = bereich1.Rows.Count

ZeilenNr = bereich2.Rows.Count

'Jede zweite Zelle im Bereich durchlaufen

For x = 3 To ZeilenNr Step 21

'den Wert aus Spalte B in Spalte C eintragen

bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

End Sub

...zum Beitrag

Excel 2016 Makros: Button zum Löschen bestimmter Zeilen?

Hey Leute,

ich arbeite derzeit intensiver an einer Excel-Tabelle, wodurch ich mich wahrscheinlich noch öfter mit Fragen rund um diese Tabelle melden werde, wenn ich mal nicht weiter weiß :D. Nun möchte ich diese Tabelle im nächsten Schritt mit Makros bereichern. Leider hatte ich bislang nahezu nichts mit Makros am Hut und benötige aus diesem Grund Hilfe.

Die dargestellte Tabelle bzw. der Ausschnitt soll zukünftig projektbezogen verwendet werden. Es handelt sich dabei um eine Funktionsliste, in der ich in Spalte B Bauteile auswähle, die ich in dem jeweiligen Projekt benötige. Da jedes Projekt individuell ist, habe ich in einigen Projekten mal 20 Bauteile, mal 50. Also nie ein im Voraus festgelegter Wert. Da in einem Projekt mehrere Anlagen vorhanden sein können, die jeweils so eine eigene Funktionsliste benötigen, möchte ich eine Schaltfläche implementieren, die mit einem Makro versehen ist. Durch Anklicken dieser Schaltfläche sollen Zeilen (nicht nur die Inhalte, sondern die gesamte Zeile) in einem bestimmten Bereich (vom dritten Bauteil bis zum letzten Bauteil) gelöscht werden. In dem Bildbeispiel z.B. würde ich wollen, dass die Zeilen 11 bis 17 gelöscht werden. Da es in einem anderen Projekt aber z.B. 20 Bauteile geben kann, müsste ich Zeile 11 bis 30 löschen. Die Ergebniszeile ganz am Ende ist unabhängig von der Tabelle und soll immer bestehen bleiben. Kann mir jemand bei dem Code helfen, um so ein "dynamisches Löschen" durch eine Schaltfläche zu ermöglichen? Unabhängig davon, wie viele Bauteile ich auswähle, soll immer nur bis zum letzten Bauteil gelöscht werden. :)

...zum Beitrag

Excel Höchstwert bei doppelten Werten anzeigen/filtern?

Hallo zusammen,

ich würde gern eine Formel oder Formatierung hinterlegen, die mir vom jeweiligen Wert in Spalte A den höchsten zugehörigen Wert in Spalte B herausfiltert oder markiert.

Also es müsste quasi zuerst die Prüfung auf doppelte Werte in Spalte A erfolgen und dann zu den (im Hintergrund) herausgefilterten Zeilen die Zeile mit dem höchsten Wert in Spalte B markiert oder herausgefiltert werden.

Das ganze möglichst ohne, dass bestimmte Werte in Spalte A konkret gefiltert werden müssen, da der Fall, in dem ich das anwenden will, über 18.000 VK betrifft und ich keine 18.000 Formeln hinterlegen möchte 😅

Es müssten quasi in diesem Beispiel als Ergebnis Zeile 3, 8 und 12 als Höchstwert zum jeweiligen VK ausgegeben/markiert werden.

Hat jemand eine Idee?

VG Peggy

...zum Beitrag

Excel - einen Wert einer immer bestimmten Zeile aus mehreren Tabellen in einer Summierung übernehmen?

Hallo,

ich versuch das gerade etwas zu basteln. Eine Art Kassenbuch. Jedes Tabellenblatt soll ein Geschäftstag abbilden. Aus allen Geschäftstagen ( Tabelle2, Tabelle 3, Tabelle4 usw.) soll ein Wert der immer in einer und der selben Zelle steht, in Tabelle1 in einer Rechnung zugefügt werden. ( in Tabelle1in Zelle B2 aus Tabelle2, Zelle G5; in Tabelle1in Zelle B3 aus Tabelle3 aus Zelle G5; in Tabelle1 in Zelle B4 aus Tabelle 4 aus Zelle G5; usw). Damit diese Werte dann fortlaufend Automatisch Summiert werden kann in Tabelle1.

Einen Bezug zu einer anderen Tabelle herstellen ist mir bekannt ( ='Tabelle2'!G5) aber wenn ich versuche die Formal durch herunter ziehen der Ecke in der Zelle, auf andere Zellen zu übernehmen, dann läuft nur der Zellbezug mit ( G5, G6, G7....) und nicht der Bezug zur Tabelle. wie kann ich das lösen, das sobald ich eine neue Tabelle ( Geschäftstag) erschaffen habe, dieser Wert direkt in Tabelle1 übernommen wird ?

Ich danke euch schon mal für eure Hilfe.

...zum Beitrag

Tabellenname aus Zelle mit VBA?

Hallo zusammen. Ich habe eine Tabelle mit mehreren Blättern und möchte mittels Makro die Tabellenblätter umbennen. Problematisch ist nur die Variabilität der Daten.

Beispiel

ich befinde mich in der Tabelle1, wo auch die Makro-Schaltfläche ist
in Tabelle2, Zelle A1 steht welche Tabelle (Tabelle4) einen neuen Namen erhalten soll
in Tabelle3, Zelle A1 steht der Namen den die Tabelle bekommen soll (Test)

Ich finde leider keine Lösung wie ich mit VBA ein Worksheet anspreche welches in Tabelle2, Zelle A1 definiert ist und dieses mit dem Namen aus Tabelle3, Zelle A1 belege.

danke im Vorraus für eure Unterstützung

...zum Beitrag

Warum werden die Werte nicht in der Combobox angezeigt?

Hi, ich programmiere in VBA und bekomme immer einen Fehler. Der Teil des Codes in dem der Fehler passierte:

   If cmbUnterkategorie.Value = "Ton" Then
     lblArt.Caption = "Farbe:"
     lblArt.Visible = True
     cmbArt.RowSource = Tabelle1.Range("E2:E" & _
     Tabelle1.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
     cmbArt.Visible = True
  End If

Um genau zu sein wird der Fehler bei der 4. und 5. Zeile angezeigt (gehören zusammen). Was habe ich falsch gemacht? Es gibt ein Formular mit einer Combobox "Unterkategorie". Wenn deren Wert "Ton" entspricht soll eine weitere Combobox eingeblendet werden. Das was man aus dieser Combobox auswählen kann wird aus dem Tabellenblatt Tabelle1 (VBA-interner Name) entnommen. Diese wird allerdings vorher gefiltert und deshalb sollen alle noch übrig gebliebenen Einträge aus Spalte E zur Auswahl in der Combobox stehen! Danke für die Antworten schon im Voraus!

...zum Beitrag

Durch ein VBA Makro nur Zeilen mit Inhalt in eine neue Tabelle kopieren?

Ich versuche vergeblich ein Makro für eine Exceltabelle zu erstellen und brauche dringend Hilfe. In der Tabelle1 befindet sich eine Liste mit 1200 Artikeln. In der Spalte A sind die Artikelnummern und in den Spalten C bis N die Stückzahl zu dem jeweiligen Artikel.

Durch ein Makro will ich nur die Zeilen in die Tabelle2 kopieren, bei denen ein Wert/Stückzahl zu dem jeweiligen Artikel in die Spalten C bis N eingetragen wurde.

Ich hoffe mir kann jemand weiterhelfen.... Vielen Dank

...zum Beitrag

Per Excel VBA eine Zeile mit einer Spalte vergleichen :) Hilfe :O

Ich versuche gerade ein Programm zu schreiben das eine Zeile mit einer Spalte vergleicht. Nun ic bin gerade noch am Anfang des Programmes und nicht sehr erfolgreich. Das Prizip ist es die Zeile (in Tabelle2) mit der Spalte(bzw. erstmal mit der Zelle(in Tabelle1)zu vergleichen). Die Zeile in Tabelle1 wird so gebildet das A und i zsm eine zeile angeben und i als Variable für die Forschleife dient. Das heißt das Programm geht Zeile für Zeile durch und sucht nach einer Zahlenübereinstimmung. Falls was gefunden wurde soll er erstmal per MsgBox ein Simples Test ausgeben damit ich weiß das es Funktioniert. Ich muss zugeben das ich VBA erst vor 3 Tagen angefangen habe zu Lernen. Dehalb seid nicht so Streng mit Fehlern zu mir :D ich hoffe ihr konnte mich helfen mfg Dennis :)

Sub CommandButton1_Click()

Dim i1 As Integer

i = 1

For i = 1 To 100

If Tabelle1.Cells(1 & i) = Tabelle2.Cells(1, 1) Then

MsgBox "Test"

End If

Next i

End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen