Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
616to620
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
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

REGISTERKARTE ABFRAGEN UND KOPIEREN

REGISTERKARTE ABFRAGEN UND KOPIEREN
31.05.2005 13:28:45
RAMBO
HI ALLE
ich möchte in der tabelle muster kundendaten erfassen und diese dann
in die jeweils andere tabelle verschieben oder kopieren.
dazu habe ich eine gültigkeitsliste erstellt in der zelle B2
wo ich jeweils den tag oder zb. sommer,herbst usw. auswählen kann.
weiters habe ich eine befehlsschaltfläche zum ausführen eingebaut.
nun scheitere ich aber an der vba prozedur.
WER KANN MIR HELFEN ODER EINEN ANSATZ GEBEN
vba soll den bereich "MUSTER!$B$2:$D$7"
1 kopieren
2 das richtige tabellenblatt finden zb. montag
steht in der TABELLE MUSTER zelle b2 und an die letzte stelle
wo sich ein eintrag befindet einfügen.
3 tabelle muster inhalte wieder löschen
damit wieder eine leere MUSTER da ist.
meine arbeitsmappe hat folgende registerkarten- namen:
MUSTER
MO
DI
MI
DO
FR
FRÜHJAHR
SOMMER
HERBST
WINTER
VIELEN DANK
RAMBO

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: REGISTERKARTE ABFRAGEN UND KOPIEREN
31.05.2005 13:46:13
harry
hi,
hoffe, dass ich deine komplizierte erklärung halbwegs verstanden habe. hier ein ansatz, musst ihn sicher etwas anpassen, sollte aber kein problem sein.

Sub test()
Dim D As Worksheet
Set D = ActiveWorkbook.Sheets("MUSTER")
For i = 1 To D.Cells(Rows.Count, 1).End(xlUp).Row
a = ActiveWorkbook.Sheets(CStr(D.Cells(i, 2).Value)).Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveWorkbook.Sheets(CStr(D.Cells(i, 2).Value)).Rows(a).Value = _
D.Rows(i).Value
Next i
End Sub

liebe grüße,
harry
AW: REGISTERKARTE ABFRAGEN UND KOPIEREN
31.05.2005 13:58:21
RAMBO
hi harry
das geht ja flott hier vielen dank.
aber leider funkt das nicht.
das macro bleibt hier stehen.
a = ActiveWorkbook.Sheets(CStr(D.Cells(i, 2).Value)).Cells(Rows.Count, 1).End(xlUp).Row + 1
der sinn des ganzen ist von tabelle MUSTER DIE ZELLE B2 finden
wenn dort montag steht soll das macro in die registerkarte mo den inhalt an den letzten eintrag anfügen.
dann habe ich alle kunden die ich am montag anrufen kann.
ich hoffe du verstehst das jetzt besser.lol
gruss
RAMBO
Anzeige
AW: REGISTERKARTE ABFRAGEN UND KOPIEREN
31.05.2005 14:03:11
harry
dachte, bei "vba gut" sollte das anpassen kein problem sein.
am einfachsten benennst du die arbeitsblätter gleich wie b2. wenn da montag steht, nenn das arbeitsblatt auch montag, und nicht mo.
AW: REGISTERKARTE ABFRAGEN UND KOPIEREN
31.05.2005 14:37:36
RAMBO
HI
in b2 steht MO und die tabellenblätter sind gleich mit b2.
ich habe leider schon viel vba vergessen.
aber ungefähr sollte es so ausehen.

Private Sub CommandButton1_Click()
kopiere bereich MUSTER!$B$2:$D$7 an das ende letzten beschriebenen zeile
if MUSTER b2 =MO
then
goto tabelle MO-FR UND frühling bis winter
end if
End Sub

lol::))Ramo programierung
vieleicht verstehst du jetzt was ich meine
DANKE
rambo
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige