Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Excel-"Datenbank" erstellen (Werte ohne Formel anz
Gehe zu Seite 1, 2  Weiter
zurück: ausgeblendete Zeilen nicht ausgeben in .txt Datei weiter: Drucktitel mit kopieren in Mail Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
VBANeuling5
Gast


Verfasst am:
21. Jan 2013, 15:11
Rufname:

Excel-"Datenbank" erstellen (Werte ohne Formel anz - Excel-"Datenbank" erstellen (Werte ohne Formel anz

Nach oben
       Version: Office 2003

Hallo zusammen,

ich bin gerade dabei für unser Formular eine Art "Datenbank" zu kreiieren.
Ich habe nun folgenden Code zusammengestellt:

Code:
Sub test()
LastRow = Sheets("Abholungen").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("Auftrag").Range("M3").Copy Sheets("Abholungen").Range("B" & LastRow)

LastRow = Sheets("Abholungen").Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets("Auftrag").Range("M5").Copy Sheets("Abholungen").Range("C" & LastRow)

LastRow = Sheets("Abholungen").Cells(Rows.Count, "D").End(xlUp).Row + 1
Sheets("Auftrag").Range("K27").Copy Sheets("Abholungen").Range("D" & LastRow)

LastRow = Sheets("Abholungen").Cells(Rows.Count, "E").End(xlUp).Row + 1
Sheets("Auftrag").Range("J9").Copy Sheets("Abholungen").Range("E" & LastRow)

LastRow = Sheets("Abholungen").Cells(Rows.Count, "F").End(xlUp).Row + 1
Sheets("Auftrag").Range("J17").Copy Sheets("Abholungen").Range("F" & LastRow)
End Sub



Wie ihr sicher sehen könnt, werden einige Daten aus "Auftrag" via Button an "Abholungen" übergeben und es wird jedesmal eine neue Zeile erzeugt.
Das Problem ist aber, dass die Werte aus "Auftrag" teilweise mit einem SVERWEIS-Bezug versehen sind, sodass die Formel kopiert wird.

Jetzt habe ich schon an jeder Stelle des Codes versucht ".PasteSpecial Paste:=xlValues" anzuhängen, bekomme aber immer ne Fehlermeldung.

Vielleicht kann mir jemand helfen?

Viele Grüße
Charly30
Der Koch


Verfasst am:
21. Jan 2013, 15:34
Rufname:


AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Code:
Sub test()
LastRow = Sheets("Abholungen").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("Abholungen").Range("B" & LastRow) = Sheets("Auftrag").Range("M3")

LastRow = Sheets("Abholungen").Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets("Abholungen").Range("C" & LastRow) = Sheets("Auftrag").Range("M5")

LastRow = Sheets("Abholungen").Cells(Rows.Count, "D").End(xlUp).Row + 1
Sheets("Abholungen").Range("D" & LastRow) = Sheets("Auftrag").Range("K27")

LastRow = Sheets("Abholungen").Cells(Rows.Count, "E").End(xlUp).Row + 1
Sheets("Abholungen").Range("E" & LastRow) = Sheets("Auftrag").Range("J9")

LastRow = Sheets("Abholungen").Cells(Rows.Count, "F").End(xlUp).Row + 1
Sheets("Abholungen").Range("F" & LastRow) = Sheets("Auftrag").Range("J17")
End Sub

ungetestet
VBANeuling5
Gast


Verfasst am:
21. Jan 2013, 15:36
Rufname:

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Wahnsinn, danke danke danke!!!! Smile
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
21. Jan 2013, 15:38
Rufname: Daniel
Wohnort: Kehl am Rhein

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Hi Neuling5!

Probier's mal so: (ungetestet)
Code:
Sub test()
    Dim LastRow As Long
   
    LastRow = Sheets("Abholungen").Cells(Rows.Count, "B").End(xlUp).Row + 1
   
    With Worksheets("Auftrag")
        .Range("M3").Copy: Worksheets("Abholungen").Range("B" & LastRow).PasteSpecial Paste:=xlValues
        .Range("M5").Copy: Worksheets("Abholungen").Range("C" & LastRow).PasteSpecial Paste:=xlValues
        .Range("K27").Copy: Worksheets("Abholungen").Range("D" & LastRow).PasteSpecial Paste:=xlValues
        .Range("J9").Copy: Worksheets("Abholungen").Range("E" & LastRow).PasteSpecial Paste:=xlValues
        .Range("J17").Copy: Worksheets("Abholungen").Range("F" & LastRow).PasteSpecial Paste:=xlValues
    End With
End Sub

_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
Charly30
Der Koch


Verfasst am:
21. Jan 2013, 15:38
Rufname:


AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Hat "LastRow" nicht in jeder Spalte den gleichen Wert? Denn dann reicht es, wenn du den einmal ermittelst!
VBANeuling5
Gast


Verfasst am:
21. Jan 2013, 15:49
Rufname:

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Ihr seid super, vielen Dank! Smile
Ich hab da noch ein kleines Problemchen, vielleicht könnt ihr mir dabei auch helfen

In dem Formular habe ich eine Zeile, wo das aktuelle Jahresdatum und eine fortlaufende Nummer eingetragen werden soll (wird zeitgleich mit dem Drucken aktualisiert)
Dafür habe ich folgenden Code:

Dim wert As String
wert = Range("M3")
Range("M3") = "2013-" & wert + 1

Jetzt sagt er mir aber, "Typen unverträglich" (ich nehme an, wegen dem bereits eingetragenen Datum in der Zeile?!)
Wie kann ich das am geschicktesten lösen?
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
21. Jan 2013, 15:56
Rufname: Daniel
Wohnort: Kehl am Rhein

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

nochmal: in "M3" steht ein Datum?
Wie Soll M3 dann hinterher aussehen?!?

"2013-21.01.20131"???

_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
VBANeuling5
Gast


Verfasst am:
21. Jan 2013, 15:58
Rufname:

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

M3 soll so aussehen: 2013-1
Also 2013-Fortlaufende Nummer
Charly30
Der Koch


Verfasst am:
21. Jan 2013, 16:03
Rufname:

Re: AW: Excel-"Datenbank" erstellen (Werte ohne Fo - Re: AW: Excel-"Datenbank" erstellen (Werte ohne Fo

Nach oben
       Version: Office 2003

du deklarierst "wert" als String, M3 enthält aber vermutlich eine Zahl?!
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
21. Jan 2013, 16:07
Rufname: Daniel
Wohnort: Kehl am Rhein

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

und was steht vorher drin?!?!?
_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
VBANeuling5
Gast


Verfasst am:
21. Jan 2013, 16:07
Rufname:

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Also wenn möglich soll neben der fortlaufenden Nummerierung auch das aktuelle Datum vorangehen...
VBANeuling5
Gast


Verfasst am:
21. Jan 2013, 16:08
Rufname:

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Entschuldigt, ich meinte das Jahr Smile
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
21. Jan 2013, 16:12
Rufname: Daniel
Wohnort: Kehl am Rhein

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Code:
Sub Zählen()
    Dim i As Long

    'Rückstellen auf 0 bei Jahreswechsel...
    If Split(Range("M3"), "-")(0) < Year(Date) Then
        i = 0
    Else
        i = Split(Range("M3"), "-")(1)
    End If

    Range("M3") = Year(Date) & "-" & i + 1
End Sub


[edit]:
--> aus "2012-99993" wird "2013-1"
--> aus "2013-1" widr "2013-2"

_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
Gast



Verfasst am:
21. Jan 2013, 16:15
Rufname:

AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

Daaaaaaaanke ExcelTüftler !!!!
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
21. Jan 2013, 16:18
Rufname: Daniel
Wohnort: Kehl am Rhein


AW: Excel-"Datenbank" erstellen (Werte ohne Formel - AW: Excel-"Datenbank" erstellen (Werte ohne Formel

Nach oben
       Version: Office 2003

VORSICHT!!!!

Ich hab's gerade Probiert - und ich bekomme Fehler... Embarassed
Code:
Sub Zählen()
    Dim i As Long

    'Rückstellen auf 0 bei Jahreswechsel...
    If CLng(Split(Range("M3"), "-")(0)) <> Year(Date) Then
        i = 0
    Else
        i = Split(Range("M3"), "-")(1)
    End If

    Range("M3") = Year(Date) & "-" & Format(i + 1, "0000")
End Sub


Mach's so!!

_________________
Gruß Daniel

P.S. Nein, das ist kein Pfusch... das ist Improvisation! ;o)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formel für Leerzeilen 2 Ursula 2167 24. März 2004, 12:31
steve1da Formel für Leerzeilen
Keine neuen Beiträge Excel Formeln: Formel 1 posti 636 20. März 2004, 15:51
Dick Formel
Keine neuen Beiträge Excel Formeln: wenn formel mit ODER 4 Equilibrium 1654 16. März 2004, 00:09
Gast wenn formel mit ODER
Keine neuen Beiträge Excel Formeln: Suche Formel (keine ahnung ob es sowas gibt) 1 Teladi 2758 12. März 2004, 07:48
peb Suche Formel (keine ahnung ob es sowas gibt)
Keine neuen Beiträge Excel Formeln: Brauche Hilfe: SVerweis + Wenn Formel Beispiel 10 Gast 7507 08. März 2004, 18:25
Gast Brauche Hilfe: SVerweis + Wenn Formel Beispiel
Keine neuen Beiträge Excel Formeln: Platzhalter in deiner SUMMEPRODUKT formel 5 seraph 3464 03. März 2004, 18:26
seraph Platzhalter in deiner SUMMEPRODUKT formel
Keine neuen Beiträge Excel Formeln: Suche ein Formel 4 Unwissender 2147 20. Feb 2004, 09:45
xpecidy Suche ein Formel
Keine neuen Beiträge Excel Formeln: Wenn Formel oder Identisch Formel 2 Big_Daddy17 5590 19. Feb 2004, 11:58
Big_Daddy17 Wenn Formel oder Identisch Formel
Keine neuen Beiträge Excel Formeln: formel für 2 Arbeitsmappen 2 Diana 1135 18. Feb 2004, 18:17
peb formel für 2 Arbeitsmappen
Keine neuen Beiträge Excel Formeln: Anzahl die verschiedene Kriterien erfüllt erstellen 2 Conny 586 18. Feb 2004, 16:19
Conny Anzahl die verschiedene Kriterien erfüllt erstellen
Keine neuen Beiträge Excel Formeln: WENN bzw. SUMMEWENN Formel (Provisionsberechnung) 4 Uli 6094 17. Feb 2004, 09:58
Manfred Bartak WENN bzw. SUMMEWENN Formel (Provisionsberechnung)
Keine neuen Beiträge Excel Formeln: wenn-funktion u. zusätzl. verschieden werte 2 fred 898 15. Jan 2004, 17:35
Kuwe wenn-funktion u. zusätzl. verschieden werte
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web