Input Felder kopieren

Bild

Betrifft: Input Felder kopieren
von: Marc
Geschrieben am: 06.07.2015 22:38:59

Hallo,
ich habe eine Data im Arbeitsblatt " Input ". A1 hat einen Input wie z.B. Haus1. B1:E1 haben jeweilige Eingaben wie Fenster, Kueche etc.
Ein anderes Arbeitsblatt " Data " hat in A1: A10 Haus1.... Haus10. Ich wuerde jetzt gerne die angaben die in B1:E1 gemacht wurden in das Arbeitsblatt " Data " kopieren. Dort soll nach Haus1 gesucht werden ( A1 ) und dann die Angaben in B1:E1 kopiert werden. Dasselbe wenn ich Haus2 in A1 eimgebe & andere Angaben in B1:E1.
Danke!
Marc

Bild

Betrifft: AW: Input Felder kopieren
von: Sepp
Geschrieben am: 06.07.2015 22:54:15
Hallo Marc,
so?
Data

 ABCDE
1Haus1    
2Haus2    
3Haus3    
4Haus4    
5Haus5KücheFensterBadHund
6Haus6    
7Haus7    
8Haus8    
9Haus9    
10Haus10    

Formeln der Tabelle
ZelleFormel
B1=WENN($A1=Input!$A$1;Input!B$1;"")


Input

 ABCDE
1Haus5KücheFensterBadHund
2     


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Sepp


Bild

Betrifft: AW: Input Felder kopieren
von: Marc
Geschrieben am: 06.07.2015 23:15:23
Hallo Sepp,
genau so. Ich wuerde es gerne mit einem Submit vba button im Input Arbeitsblatt versuchen. Der dann wenn gedrueckt, die Werte kopiert/ eingefuegt in Data an die richtige Stelle. Genauso wie Du es beschrieben hast.
Danke
Marc


Bild

Betrifft: hier eine VBA-Variante
von: Matthias L
Geschrieben am: 06.07.2015 23:54:20
Hallo Marc
Hier ein Bsp.
https://www.herber.de/bbs/user/98675.xlsm
Gruß Matthias

Bild

Betrifft: Willst Di immer nur B1:E1 kopieren dann so
von: Matthias L
Geschrieben am: 07.07.2015 00:15:25
Hallo
Willst Du immer nur B1:E1 kopieren, ändere einfach den Code in der Datei.

Option Explicit
Sub Kpiere()
Dim wksQ As Worksheet, wksZ As Worksheet, RnG As Range, MyRow&
Set wksQ = Worksheets("Input")
Set wksZ = Worksheets("Data")
For Each RnG In wksZ.Range("A1:A10")
 If RnG = wksQ.Range("A1") Then
    MyRow = RnG.Row
    wksQ.Range("B1:E1").Copy Destination:=wksZ.Range("B" & MyRow)
    Exit For
 End If
Next
End Sub
Gruß Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Input Felder kopieren"