Makro mit Suchfunktion, welches Zelleninhalte kopi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub KontenÜbertragung() Dim intQuellZeile As Integer, intZielZeile As Integer, intSuche As Integer Dim strÜbergabe As String ' Zellen Spalte 1 abarbeiten With Sheets(1) For intQuellZeile = 1 To .UsedRange.Rows.Count intSuche = .Cells(intQuellZeile, 1).Value ' gleich Übergabewert für möglichen Treffer mit einlesen strWert = .Cells(intQuellZeile, 2).Value ' Inhalt strSuche mit Kontennummern Tabelle2 vergleichen With Sheets(2) For intZielZeile = 1 To .UsedRange.Rows.Count If .Cells(intZielZeile, 1).Value = intSuche Then .Cells(intZielZeile, 2).Value = strWert Exit For End If Next intZielZeile End With Next intQuellZeile End With End Sub

*grummel*
Jaja ... kann nicht funktionieren, wenn man am Ende eine Variabele anders deklariert und dann vergisst die Variabele im Code umzubennen. ^^
Hier neu und mit Fehlerabfang:
Option Explicit


Sub KontenÜbertragung()
Dim intQuellZeile As Integer, intZielZeile As Integer, intSuche As Integer
Dim strÜbergabe As String
' Zellen Spalte 1 abarbeiten
With Sheets(1)
For intQuellZeile = 1 To .UsedRange.Rows.Count
If IsNumeric(.Cells(intQuellZeile, 1)) Then
intSuche = .Cells(intQuellZeile, 1).Value
' gleich Übergabewert für möglichen Treffer mit einlesen
strÜbergabe = .Cells(intQuellZeile, 2).Value
Else
MsgBox "Das ist keine gültige Kontonummer: " & .Cells(intQuellZeile, 1).Value
GoTo Next_ZielZeile
End If
' Inhalt strSuche mit Kontennummern Tabelle2 vergleichen
With Sheets(2)
For intZielZeile = 1 To .UsedRange.Rows.Count
If .Cells(intZielZeile, 1).Value = intSuche Then
.Cells(intZielZeile, 2).Value = strÜbergabe
Exit For
End If
Next intZielZeile
End With
Next_ZielZeile:
Next intQuellZeile
End With
Exit_Kontenübertragung:
Exit Sub
Err_KontenÜbertragung:
MsgBox "Fehler: " & Err.Number & " " & Err.Description
Resume Exit_Kontenübertragung
End Sub

Sorry. ;)
Gruß
Rainer

Lach ... sind ja nur Kleinigkeiten. ^^
Nach Deiner Auswertung macht das Programm genau das was Du wolltest, es überträgt den Wert eines Kontos in das nächste Tabellenblatt an die Stelle wo die gleiche Kontonummer steht. Deswegen stehen in Tabelle2 auch immer der letzte Wert eines Kontos aus Tabelle1.
Solche nicht ganz unwichtigen Sachen solltest Du i.d.R. vorher sagen. ;)
Also mal ganz vorsichtig ... jedes Konto kann in jedem Tabellenblatt mehrfach vorkommen, richtig? Und das mit unterschiedlichen Werten und soll nun selbstständig erkennen welchen Wert es nun wohin schreiben soll, also den Wert des zweiten Auftretens des Kontos dem Treffer des 4ten Auftreten des Kontos zuweisen oder so ähnlich.
Ein Automatismus benötigt schon in irgendeiner Art und Weise ein Kriterium / eine Logik an Hand dessen er festmachen kann, was es tun soll.
Woran unterscheidest Du, wenn Du die Übertragung händisch machst, welcher Wert wohin kommt?
Wie gesagt, brauche schon ein mathematisch Logik ... Prozeduren die nach Gefühl oder Erfahrung arbeiten, kann ich noch nicht programmieren. ^^
Gruß
Rainer

Beliebteste Forumthreads (12 Monate)

Makro mit Suchfunktion, welches Zelleninhalte kopi

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro mit Suchfunktion, welches Zelleninhalte kopi

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread