Microsoft Excel

Herbers Excel/VBA-Archiv

VBA-Problem

Betrifft: VBA-Problem von: HenryG
Geschrieben am: 15.09.2004 21:28:26

Hallo,
mit folgendem Code übertrage ich aus TabBl3 Daten in TabBl4:

Sub Datenuebernahme()
    Sheets("Tabelle4").Select 
Dim laR As Long
    laR = Cells(Rows.Count, 7).End(xlUp).Row
    Cells(laR + 1, 1).Value = Sheets("Tabelle3").Range("D6").Value 
    Cells(laR + 1, 2).Value = Sheets("Tabelle3").Range("D9").Value 
    Cells(laR + 1, 3).Value = Sheets("Tabelle3").Range("AC3").Value 
    Cells(laR + 1, 4).Value = Sheets("Tabelle3").Range("AC4").Value 
    Cells(laR + 1, 5).Value = Sheets("Tabelle3").Range("D12").Value 
    Cells(laR + 1, 6).Value = Sheets("Tabelle3").Range("H12").Value 
    Cells(laR + 1, 7).Value = Sheets("Tabelle3").Range("L12").Value 
    Cells(laR + 1, 8).Value = Sheets("Tabelle3").Range("D15").Value 
    Cells(laR + 1, 9).Value = Sheets("Tabelle3").Range("H15").Value 
    Cells(laR + 1, 10).Value = Sheets("Tabelle3").Range("L15").Value 
End Sub


Nun möchte ich gerne erreichen, das nach erfolgter Datenübernahme,
die Eingabezellen im Blatt 3(außer AC3 & AC4) wieder leer sind.
Zusätzlich sollte in Y1 und AA1 die Zahl 1 erscheinen. Kann sich
jemand mein Problem annehmen?

Gruß
HenryG
  


Betrifft: AW: VBA-Problem von: andre
Geschrieben am: 15.09.2004 22:20:10

Hallo Henry,
von wem ist denn der code?
im Prinzip so:
Sheets("Tabelle3").Range("D6")=""
Sheets("Tabelle3").Range("Y1")=1


  


Betrifft: AW: VBA-Problem von: Ramses
Geschrieben am: 15.09.2004 22:22:27

Hallo

Sub Datenuebernahme()
    Sheets("Tabelle4").Select 
Dim laR As Long
    laR = Cells(Rows.Count, 7).End(xlUp).Row
    Cells(laR + 1, 1).Value = Sheets("Tabelle3").Range("D6").Value
    Sheets("Tabelle3").Range("D6").Value = ""
    Cells(laR + 1, 2).Value = Sheets("Tabelle3").Range("D9").Value
    Sheets("Tabelle3").Range("D9").Value = "" 
    Cells(laR + 1, 3).Value = Sheets("Tabelle3").Range("AC3").Value 
    Cells(laR + 1, 4).Value = Sheets("Tabelle3").Range("AC4").Value 
    Cells(laR + 1, 5).Value = Sheets("Tabelle3").Range("D12").Value 
    Sheets("Tabelle3").Range("D12").Value = ""
    Cells(laR + 1, 6).Value = Sheets("Tabelle3").Range("H12").Value 
    Sheets("Tabelle3").Range("H12").Value = ""
    Cells(laR + 1, 7).Value = Sheets("Tabelle3").Range("L12").Value
    Sheets("Tabelle3").Range("L12").Value = ""
    Cells(laR + 1, 8).Value = Sheets("Tabelle3").Range("D15").Value 
    Sheets("Tabelle3").Range("D15").Value = ""
    Cells(laR + 1, 9).Value = Sheets("Tabelle3").Range("H15").Value 
    Sheets("Tabelle3").Range("H15").Value = ""
    Cells(laR + 1, 10).Value = Sheets("Tabelle3").Range("L15").Value 
    Sheets("Tabelle3").Range("L15").Value = ""
    Sheets("Tabelle3").Range("Y1").Value = 1
    Sheets("Tabelle3").Range("AA1").Value = 1
End Sub


Gruss Rainer


  


Betrifft: AW: VBA-Problem von: HenryG
Geschrieben am: 15.09.2004 22:39:12

Hallo Rainer,
vielen Dank für Deine Hilfe zu so später Stunde!!!!!
Funktioniert einwandfrei :)
Nochmals Dankeschön für Deine Mühe
Gruß
Henry