MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 21.12.2017, 17:49   #1
speednetz
MOF User
MOF User
Standard VBA - Kopieren aus aktiver Zelle in andere Tabelle

Hallo und einen schönen guten Abend
Ich bin VBA Anfänger und hoffe das mir jemand helfen kann.
Habe meine Makro's die ich benutze über das Netz zu sammen gebaut.
Folgendes Problem:

Ich möchte in Tabelle1 immer den eingegebenen Wert der aktiven Zelle kopieren und in Tabelle2 in der gleichen Zeile ab C3 einfügen. sollte diese einen wert haben dann immer eine Zelle nach rechts springen.

Die Zeile in Tabelle 2 ist immer gleich wie in Tabelle1.

Soll in jeder Zeile gehen.

Und ohne Bouton also dann wenn ich Enter drücke.

Ich hoffe ich habe es einiger massen verstädlich erklärt.

Ich habe dazu nichts gefunden was ich verwenden könnte

Hoffe jemand kann mir helfen .
Ist sehr wichtig für mich.

Danke im vorraus.

Gruß speednetz
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 18:09   #2
Beverly
MOF Guru
MOF Guru
Standard

Hi,

verstehe ich das richtig: in Tabelle1 gibst du in Spalte A ab Zeile 3 etwas ein, was danach in Tabelle2 in der selben Zeile ab Spalte C fortlaufend nach rechts übertragen werden soll?


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 18:57   #3
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Beverly

Nicht ganz
Aus Tabelle1 muß der wert aus der aktiven zelle kopiert werden. Und in Tabelle2
in die gleich Zeile ab Spalte c nach rechts. Zeile in Tabelle1 und Tabelle2 sind immer gleich.
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 18:58   #4
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Wäre schön wenn du mir helfen würdes dises Problem zu lösen.
Danke schon mal
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 19:13   #5
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

ist den niemand der mir vielleicht doch helfen kann.
Ist sehr wichtig für mich.


Danke
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 19:32   #6
aloys78
MOF Meister
MOF Meister
Standard

Hallo,

nicht nervös werden !

Mein Vorschlag für Tabelle1 im VBE:
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim z As Long, s As Long
    If Target.Count > 1 Then Exit Sub
    z = Target.Row
    With Worksheets("Tabelle2")
        s = .Cells(z, .Columns.Count).End(xlToLeft).Column + 1
        If s < 3 Then s = 3
        Target.Copy .Cells(z, s)
    End With
End Sub
Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 20:21   #7
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Aloys
Das ist sehr gut. Haber beim beschreiben aber einen Fehler gemacht.

Wenn aktive Zelle in Spalte C dann in Tabelle2
Wenn aktive Zelle in Spalte E dann in Tabelle3
Wenn aktive Zelle in Spalte G dann in Tabelle4
Wenn aktive Zelle in Spalte I dann in Tabelle5
und so weiter.
Wenn das gehen würde wäre gut.

Wäre schön wenn das auch klappen würde.

Danke schon mal
Gruß speednetz
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 20:35   #8
Storax
MOF Profi
MOF Profi
Standard

CP http://office-loesung.de/p/viewtopic.php?f=166&t=754591

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 21:09   #9
aloys78
MOF Meister
MOF Meister
Standard

Hallo Storax,

danke für die Info; da brauche ich gar nicht mehr weiterzumachen.

Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 21:17   #10
aloys78
MOF Meister
MOF Meister
Standard

Hallo speednetz,

nach fast 2 Stunden hattest Du eine Lösung von mir.
Dann hast Du die Aufgabenstellung geändert und parallel in einem weiteren Forum Dein Problem geposted, ohne einen Hinweis darauf zu geben.

Da ich keine Lust habe, für die Katz zu arbeiten, habe ich das Testen meiner Lösung eingestellt und verabschiede mich aus diesem Beitrag.

Zu sagen, dass ich sauer bin, wäre untertrieben.

Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2017, 22:04   #11
Beverly
MOF Guru
MOF Guru
Standard

Noch ein Hinweis für solch ungeduldige Fragesteller: es waren ja gerade mal 15 min seit deinem letzen Beitrag vergangen - du musst den Helfern schon etwas Zeit gönnen, denn schließlich antworten sie hier kostenlos und in ihrer Freizeit und sitzen nicht ständig vor dem Computer und warten, bis jemand etwas postet...


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 07:24   #12
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo
Möchte mich für meine ungedult enschuldigen.
Wuste nicht das mann das so nicht macht.
Somit kann ich das verstehen.

Möchte micht auch bei dir Aloys entschuldigen.

Würde mich freuen wenn Du oder jemand anderes mir trotzdem helfen würdet.

Bin halt nicht nicht so erfahen wie man so was in einem Forum macht.

Danke speednetz
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 07:42   #13
RPP63neu
MOF Meister
MOF Meister
Standard

Sabina hat im Nachbarforum geantwortet:
http://www.office-loesung.de/p/viewt...10359#p3110359

Ich hoffe Du siehst jetzt, welches Chaos so ein unnötiges CP anrichtet.
Die Löschung der Threaderöffnung nebenan hat dies eher noch verstärkt.
Aber Du gelobst ja Besserung.

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 07:44   #14
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Aloys
Mochte mich noch mal personlich bei dir für mein verhalten entschuldigen.
Kann verstehen das du sauer bist.
Ich habe den anderen Beitrag gelöscht.
Ich hoffe du nimmst meine Entschuldigung an, und würdes mir bei meinem
Problem noch helfen.

Gruß speednetz
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 08:09   #15
aloys78
MOF Meister
MOF Meister
Standard

Hallo Speednetz,

zum Thema Ungeduld solltest Du Dir den Beitrag von Karin zu gemüte führen.

Ansonsten möchte ich nicht nachtragend sein, da Du Dich entschuldigst hast.
Anbei meine Lösung, wie ich die neue Aufgabenstellung verstanden habe.
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim z As Long, s As Long        ' Zeilen# und Spalten# Ziel-Tabelle
    Dim c As Long                   ' Spalten# Quell-Tabelle
    Dim i As Long                   ' Nr Ziel-Tabelle
    z = Target.Row                  ' Zeilen# ausgewählte Zelle
    c = Target.Column               ' Spalten# ausgewählte Zelle
    
    If Target.Count > 1 Then Exit Sub   ' mehr als 1 Zelle ausgewählt
    If c < 3 Then Exit Sub              ' kleiner Sp C
    If c Mod 2 = 0 Then Exit Sub        ' Spalten# muß ungerade sein
    i = (c - 1) / 2 + 1                 ' Suffix der Ziel-Tabelle
    On Error Resume Next
    With Worksheets("Tabelle" & i)
        If Err.Number <> 0 Then
            MsgBox "Tabelle" & i & " nicht vorhanden !" & Chr(10) & _
                "Eingabe wird gelöscht !", vbExclamation
            Application.EnableEvents = False
            Target = ""                         ' Ziel-Tabelle nicht gefunden, Eingabe wieder löschen
            Application.EnableEvents = True
            GoTo Ende
        End If
    'Ziel-Tabelle vorhanden
        s = .Cells(z, .Columns.Count).End(xlToLeft).Column + 1  ' nächste freie Spalte in Ziel-Tabelle
        If s < 3 Then s = 3             ' mindestens Sp C
        Target.Copy .Cells(z, s)        ' kopiere Quell-Daten nach Ziel
    End With
Ende:
    On Error GoTo 0
End Sub
Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:09 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.