Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte holen, bearbeiten, zurück geben per VBA

Werte holen, bearbeiten, zurück geben per VBA
20.06.2003 23:10:44
Klaus K.
Hallo,

vielleicht fällt Euch heute Abend noch was ein:

Tabelle1!A1:C100 ist voll mit Werten.
Nun möchte ich bestimmte Werte in Tabelle2 übernehmen.
In Tabelle2!A1 steht z.B. 8 für Zeile.
Durch diesen Index (Zeile 8 aus Tabelle1) sollen die
entsprechenden Werte per VBA in Tabelle2!A2,C5 und G3
geschrieben werden.
In diesen Zellen möchte ich dann die Werte ändern
und durch einen 2. VBA-Code an den ursprünglichen Platz
zurückschreiben oder mit einem 3. Code den Datensatz
(Zeile 8 in Tabelle1) löschen oder durch einen 4. Code
einen neuen Datensatz anlegen. Z.B. in die nächste freie Zeile
von Tabelle1.

Es ist ja nichts anderes als eine einfache DB.
Per Excel-Formeln aber wahnsinnig umständlich.
Hab' das komplette Forum schon durch.
Aber irgendwie nichts gefunden.
Ich brauch' ja kein kompletten Code.
Aber ein leichter Denkanstoss wäre schon was.

Besten Dank schon mal.
Gruss
Klaus K.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Werte holen, bearbeiten, zurück geben per VBA
21.06.2003 00:26:35
Thomas Risi

Hallo Klaus

Versuch mal das hier ;-))

Code für ein 'normales Modul:


Option Explicit

Public Dummy(2) As Range


Code für 'Tabelle2':


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$A$1" Then
    
        Set Dummy(0) = Worksheets("Tabelle1").Cells(Target, 1)
        Set Dummy(1) = Worksheets("Tabelle1").Cells(Target, 2)
        Set Dummy(2) = Worksheets("Tabelle1").Cells(Target, 3)
        
        [A2] = Dummy(0)
        [C5] = Dummy(1)
        [G3] = Dummy(2)
        
    ElseIf Target.Address = "$A$2" Then
        
        If Not Dummy(0) Is Nothing Then
            Dummy(0) = [A2]
        End If
        
    ElseIf Target.Address = "$C$5" Then
        
        If Not Dummy(1) Is Nothing Then
            Dummy(1) = [C5]
        End If
        
    ElseIf Target.Address = "$G$3" Then
        
        If Not Dummy(2) Is Nothing Then
            Dummy(2) = [G3]
        End If
        
    End If
    
End Sub


     Code eingefügt mit Syntaxhighlighter 2.1

Gruß
Thomas

Risi Thomas Softwareentwicklung



Anzeige
Re: Werte holen, bearbeiten, zurück geben per VBA
21.06.2003 19:50:54
Klaus K.

Erstmal besten Dank.
Allerdings läuft es leider nicht.
"Sub oder Function nicht definiert"
Die Funktionsweise kann ich nachvollziehen.
Aber ich finde die Ursache für die Fehlermeldung nicht.
Vielleicht kannst Du ja noch mal ein Auge drauf werfen :-)
Gruss
Klaus

Code 1 muss in ein leeres normales Modul.. o.T.
21.06.2003 22:09:25
Klaus K.

.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige