Herbers Excel/VBA-Archiv
Datensatz in Abhängigkeit einer Variable markieren
- Datensatz in Abhängigkeit einer Variable markieren von iven_s vom 02.10.2003 21:43:55
- AW: Datensatz in Abhängigkeit einer Variable markieren - von Hajo_Zi am 02.10.2003 21:47:00
- AW: Datensatz in Abhängigkeit einer Variable markieren - von iven_s am 02.10.2003 21:53:44
- AW: Datensatz in Abhängigkeit einer Variable markieren - von Hajo_Zi am 02.10.2003 22:05:58
- Lösung - von iven_s am 02.10.2003 22:15:54
- Lösung - von iven_s am 02.10.2003 22:15:54
- AW: Datensatz in Abhängigkeit einer Variable markieren - von Hajo_Zi am 02.10.2003 22:05:58
- AW: Datensatz in Abhängigkeit einer Variable markieren - von iven_s am 02.10.2003 21:53:44
- AW: Datensatz in Abhängigkeit einer Variable markieren - von Hajo_Zi am 02.10.2003 21:47:00
 |
Betrifft: Datensatz in Abhängigkeit einer Variable markieren
von: iven_s
Geschrieben am: 02.10.2003 21:43:55
Hallo,
Ich habe folgendes Problem.
In Tabelle1 steht in A1 der Wert 5. Dies soll die Variable sein.
Mit einem Makro soll jetzt in Tabelle2 der Datensatz in Zeile 5 von A5:G5 markiert werden.
Mit cells und rows komme ich irgendwie nicht weiter...
iven_s
 |
Betrifft: AW: Datensatz in Abhängigkeit einer Variable markieren von: Hajo_Zi
Geschrieben am: 02.10.2003 21:47:00
Hallo Iven
in VBA kann auf Select, Activate usw. zu 99% verzichtet werden.
Warum soll markiert werden???
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
http://home.media-n.de/ziplies/
| |
Betrifft: AW: Datensatz in Abhängigkeit einer Variable markieren von: iven_s
Geschrieben am: 02.10.2003 21:53:44
Hallo Hajo,
Der ausgewählte Datensatz soll nach Tabelle1!A2 kopiert und transponiert werden.
iven_s
| |
Betrifft: AW: Datensatz in Abhängigkeit einer Variable markieren von: Hajo_Zi
Geschrieben am: 02.10.2003 22:05:58
Hallo Iven
Sub Makro4()
With Worksheets("Tabelle2")
.Range(.Cells(Worksheets("Tabelle1").Range("A1"), 1), .Cells(Worksheets("Tabelle1").Range("A1"), 7)).Copy
Worksheets("Tabelle1").Range("A2").PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
Application.CutCopyMode = False 'Zwischenspeicher löschen
End Sub
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
http://home.media-n.de/ziplies/
| |
Betrifft: Lösung von: iven_s
Geschrieben am: 02.10.2003 22:15:54
Danke Hajo. Der Code funktioniert.
iven_s
| |