Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbank nur werte markieren

Datenbank nur werte markieren
23.08.2019 11:09:13
Peter
Hallo zusammen,
Folgender Sachverhalt:
In Spalte Z ab Zeile Z3 und Spalte AA bis Zeile AA72 habe ich eine Datenbank die variable gefüttert wird. Das bedeutet:
In Spalte Z steht immer die Auftragsnummer und Spalte AA eine Bemerkung
Beispiel:
Zeile Spalte Z Spalte A
3 111111-1 Getreide
4 111111-2 Getreide 2
Diese Datenbank wird bis maximal AA72 mit Daten gefüttert.
Ich möchte aber dass ich über ein Makro mir nur den aktuellen Stand der Datenbank markiert, damit ich diese Werte in eine andere Tabelle (nur Werte) kopieren kann.
Also wie im Beispiel würde dann nur die Zeilen 3+4 Spalte Z &AA für das kopieren markiert werden.
Leider habe ich bis dahin keinen Ansatz wie der Code aussehen soll.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenbank nur werte markieren
23.08.2019 11:19:38
Werner
Hallo Peter,
so? 
Public Sub kopieren()
Dim loLetzte As Long
'Blattname anpassen
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "Z").End(xlUp).Row
If loLetzte > 2 Then
.Range(.Cells(3, "Z"), .Cells(loLetzte, "AA")).Copy
'Blattname und Zielzelle anpassen
Worksheets("Tabelle2").Range("A1").pastespecail Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End With
End Sub
Gruß Werner
AW: Datenbank nur werte markieren
23.08.2019 11:33:13
Peter
Hallo,
danke für schnelle Antwort
Anzeige:
Laufzeitfehler: 438
Folgendes Problem mit Zeile:
Worksheets("Tabelle2").Range("A1").pastespecail Paste:=xlPasteValues
Hier der Code: 
Public Sub CSV()
ActiveWorkbook.Unprotect Password:="78625003"
Worksheets("Datentransfer").Visible = True
'Blattname anpassen
With Worksheets("Wasser Färbung 254 nm")
loLetzte = .Cells(.Rows.Count, "Z").End(xlUp).Row
If loLetzte > 2 Then
.Range(.Cells(3, "Z"), .Cells(loLetzte, "AA")).Copy
'Blattname und Zielzelle anpassen
Worksheets("Datentransfer").Range("A1").pastespecail Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End With
End Sub

Anzeige
AW: Datenbank nur werte markieren
23.08.2019 11:43:46
Werner
Hallo,
das soll auch PasteSpecial heißen und nicht PasteSpecail, sorry 
Worksheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteValues
Gruß Werner
AW: Datenbank nur werte markieren
23.08.2019 11:59:19
Peter
Hallo,
ok das funktioniert. danke
Jetzt sollte er mir die Daten in Datentransfer als DAT Datei exportieren. Hier wandelt er mir immer bis alle 70 Zeilen um obwohl ich z.b. nur neun Zeilen mit Auftragsnummer und Bemerkung gefüllt habe.
Hier der Code:
ActiveWorkbook.Unprotect Password:="......"
Worksheets("Datentransfer").Visible = True
Worksheets("Datentransfer").Select
Range("A1").Select
Selection.PasteSpecial xlPasteValues
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strpfad As String
Dim strFile As String
Dim strTrennzeichen As String
strpfad = ActiveWorkbook.FullName
strpfad = Replace(strpfad, ".xltm", ".dat")
strFile = "A:\daten.dat"
strTrennzeichen = vbTab
Set Bereich = ActiveSheet.UsedRange
Open strFile For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & "" & CStr(Zelle.Text) & "" & strTrennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Datenexport abgeschlossen!"
Dim InI As Integer
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name "Wasser Färbung 254 nm" Then Sheets(InI).Visible = xlVeryHidden
Next InI
Range("B7").Select
Selection.ClearContents
Range("E2").Select
End Sub
Wo mache ich hier einen Fehler?
Anzeige
AW: Datenbank nur werte markieren
23.08.2019 11:59:19
Peter
Hallo,
ok das funktioniert. danke
Jetzt sollte er mir die Daten in Datentransfer als DAT Datei exportieren. Hier wandelt er mir immer bis alle 70 Zeilen um obwohl ich z.b. nur neun Zeilen mit Auftragsnummer und Bemerkung gefüllt habe.
Hier der Code:
ActiveWorkbook.Unprotect Password:="......"
Worksheets("Datentransfer").Visible = True
Worksheets("Datentransfer").Select
Range("A1").Select
Selection.PasteSpecial xlPasteValues
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strpfad As String
Dim strFile As String
Dim strTrennzeichen As String
strpfad = ActiveWorkbook.FullName
strpfad = Replace(strpfad, ".xltm", ".dat")
strFile = "A:\daten.dat"
strTrennzeichen = vbTab
Set Bereich = ActiveSheet.UsedRange
Open strFile For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & "" & CStr(Zelle.Text) & "" & strTrennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Datenexport abgeschlossen!"
Dim InI As Integer
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name "Wasser Färbung 254 nm" Then Sheets(InI).Visible = xlVeryHidden
Next InI
Range("B7").Select
Selection.ClearContents
Range("E2").Select
End Sub
Wo mache ich hier einen Fehler?
Anzeige
AW: Datenbank nur werte markieren
23.08.2019 11:59:21
Peter
Hallo,
ok das funktioniert. danke
Jetzt sollte er mir die Daten in Datentransfer als DAT Datei exportieren. Hier wandelt er mir immer bis alle 70 Zeilen um obwohl ich z.b. nur neun Zeilen mit Auftragsnummer und Bemerkung gefüllt habe.
Hier der Code:
ActiveWorkbook.Unprotect Password:="......"
Worksheets("Datentransfer").Visible = True
Worksheets("Datentransfer").Select
Range("A1").Select
Selection.PasteSpecial xlPasteValues
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strpfad As String
Dim strFile As String
Dim strTrennzeichen As String
strpfad = ActiveWorkbook.FullName
strpfad = Replace(strpfad, ".xltm", ".dat")
strFile = "A:\daten.dat"
strTrennzeichen = vbTab
Set Bereich = ActiveSheet.UsedRange
Open strFile For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & "" & CStr(Zelle.Text) & "" & strTrennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Datenexport abgeschlossen!"
Dim InI As Integer
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name "Wasser Färbung 254 nm" Then Sheets(InI).Visible = xlVeryHidden
Next InI
Range("B7").Select
Selection.ClearContents
Range("E2").Select
End Sub
Wo mache ich hier einen Fehler?
Anzeige
AW: Datenbank nur werte markieren
23.08.2019 11:49:35
Torsten
pastespecial nicht pastespecail

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige