|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.05.2019 16:27:47 |
Daemon |
|
|
|
22.05.2019 20:32:12 |
Gast27936 |
|
|
|
22.05.2019 21:55:50 |
Gast4247 |
|
|
|
22.05.2019 22:22:42 |
Gast86491 |
|
|
 Kopieren von Bereichen in neues Tabellenblatt |
23.05.2019 08:14:57 |
Gast78082 |
|
|
|
23.05.2019 09:38:33 |
Gast89179 |
|
|
|
23.05.2019 09:38:43 |
Daemon |
|
|
|
23.05.2019 19:51:54 |
Gast13009 |
|
|
Von:
Gast78082 |
Datum:
23.05.2019 08:14:57 |
Views:
447 |
Rating:
|
Antwort:
|
Thema:
Kopieren von Bereichen in neues Tabellenblatt |
|
Also mein Problem ist im Moment noch folgendes:
Es sieht so aus:
A B C D
Anzahl_1 Preis A-Nummer A-Bezeichnung
1 200 100,00 1234 ABC
2 100 90,00 23532536 ABC
3 150 150,00 1234 ABC
4 100 50,00 23532536 CVB
5 90 50,00 5678 CVB
Und ich möchte eben das die Spalte C durchsucht wird auf die Nummer 23532536 (bestenfalls soll man sie noch durch eine Input-Box vorher abfragen können (also welche Nummer gesucht ist).
Wenn er die Nummer (für die er jede Zeile in Spalte C absucht) gefunden hat, soll er diese Zelle
und die Zelle links daneben (also die aus Spalte B) kopieren und in Tabelle2 einfügen.
Er zeigt mir manchmal bei "UsedRange" an, dass er die Methode bzw. das Objekt nicht findet.
Mir also bitte jemand den Code anpassen? Danke!
Option Explicit
Public Sub test()
Const MY_NUMBER As Long = 1234
Dim avntSource() As Variant, avntTarget() As Variant
Dim ialngCount As Long, ialngRow As Long
avntSource() = Tabelle1.UsedRange.Value
For ialngRow = 1 To UBound(avntSource)
If avntSource(ialngRow, 2) = MY_NUMBER Then
ReDim Preserve avntTarget(1, ialngCount) As Variant
avntTarget(0, ialngCount) = avntSource(ialngRow, 1)
avntTarget(1, ialngCount) = avntSource(ialngRow, 2)
ialngCount = ialngCount + 1
End If
Next
If ialngCount = 0 Then
Call MsgBox(Prompt:="Die Zahl wurde nicht gefunden..!", _
Buttons:=vbExclamation, Title:="Datensuche")
Else
With Tabelle2
Call .UsedRange.ClearContents
.Range(.Cells(1, 1), .Cells(UBound(avntTarget, 2) + 1, 2)).Value = _
WorksheetFunction.Transpose(avntTarget())
End With
End If
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.05.2019 16:27:47 |
Daemon |
|
|
|
22.05.2019 20:32:12 |
Gast27936 |
|
|
|
22.05.2019 21:55:50 |
Gast4247 |
|
|
|
22.05.2019 22:22:42 |
Gast86491 |
|
|
Kopieren von Bereichen in neues Tabellenblatt |
23.05.2019 08:14:57 |
Gast78082 |
|
|
|
23.05.2019 09:38:33 |
Gast89179 |
|
|
|
23.05.2019 09:38:43 |
Daemon |
|
|
|
23.05.2019 19:51:54 |
Gast13009 |
|
|