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

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

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

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

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 VBA-Code nötig?

Wenn K1 geändert wird soll es in der Tabelle2 den vorherigen Wert auflisten. Zum Beispiel Zelle K1 ändert sich von 260 zu 300 dann soll der Wert 260 aufgelistet werden in der Tabelle2. Wenn nun 300 zu 290 geändert wird soll 300 gespeichert werden. Das ganze soll dann in Tabelle2 so in etwa aussehen bis jetzt A1 = 260 A2 = 300 A3 = 290.

Ich habe bereits nach einer Lösung gesucht und diese erfordert jedoch etwas mit VBA-Code von dem ich nicht so viel Ahnung habe. Ich weiss noch nicht einmal wie ich in Spalte A:A die Namen der Kunden zählen kann, dabei jedoch die doppelten ignoriere :`)

Ich danke bereits im voraus

...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

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

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 - 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

Wie kann ich Zelleninhalte via Makro mit Zellenabstand kopieren?

Ich möchte diese Frage mit einem Beispiel stellen und anmerken, dass ich vorher noch nie Makros oder VBA benutzt habe.

Ich habe eine Spalte mit Zelleninhalten (z.B."a" bis "k") und möchte über ein Makro das Ergebnis in Spalte 2 erhalten (vorzugsweise auf einem anderen Tabellenblatt). Der Abstand zwischen den gefüllten Zellen soll dann immer gleich sein.

Edit:
Die Spaltenbreite ist nicht mein Problem.

Ich möchte die Inhalte aus Zelle "Tabelle1!A3" in "Tabelle2!C1" kopieren

Der Inhalt von Zelle "Tabelle1!A4" in "Tabelle2!C85"

Der Inhalt von Zelle "Tabelle1!A5" in "Tabelle2!C169"

Der Abstand beträgt immer 84 Zellen in Tabelle 2. Das ganze sollte dann 367 mal passieren, theoretisch bis Zelle "Tabelle2!C30829"

Weiß nicht ob es verständlich ist :/

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen