Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1568to1572
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
Inhaltsverzeichnis

Makro für Adresseingabe ?

Makro für Adresseingabe ?
14.07.2017 19:26:08
kurt
Guten Abend,
ich bastel mir gerade eine Hausabrechnung.
In der Tabelle Abrechnung L4 wird der Name ausgewählt.
Jetzt sollte der Name Adresse LINKS ab B4 so eingesetzt werden,
geht sowas ?
In der Tabelle "Namen" stehen die Adressen.
https://www.herber.de/bbs/user/114884.xlsm
gruß
kurt pa

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

Betreff
Datum
Anwender
Anzeige
AW: Makro für Adresseingabe ?
14.07.2017 19:29:40
Hajo_Zi
Hallo Kurt,
http://www.excelformeln.de/formeln.html?welcher=24

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
AW: Makro für Adresseingabe ?
14.07.2017 19:47:25
kurt
Guten Abend Hajo,
danke für die Information. Hört sich so an als ob Du BELEIDIGT bist,
wie auch immer, ich denke ich wars nicht.
Dennoch würde ich mich über eine Makro-Lösung freuen,
danke nochmals,
gruß
kurt pa
Anzeige
AW: Makro für Adresseingabe ?
15.07.2017 06:52:52
Hajo_Zi
Hallo Kurt,
wo hast Du das gelesen? In ein Link Lösung?
Ich habe eine VBA freie Lösung gepostet.
Gruß Hajo
Kann kein Makro finden
15.07.2017 08:49:44
Kurt
Guten Morgen Hajo,
ich bin wohl Blind aber ich kann kein Makro finden. Allerdings einen
Link zu Verweis Formeln.
Gruß
Kurt pa
AW: Kann kein Makro finden
15.07.2017 08:52:41
Hajo_Zi
Hallo Kurt,
ein VBA freie Lösung ist ohne Makro, aber das sehe ich wohl falsch.
Gruß Hajo
AW: Makro für Adresseingabe ?
15.07.2017 09:27:56
Gerd
Hallo Kurt,
hier ist es wie bei einer Verlosung .... :-)
'Ins Blattmodul von Tabelle Abrechnung
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Variant
If Target.Address = "$L$5" Then
X = Application.Match(Target, Worksheets("Namen").Columns("E"), 0)
If IsNumeric(X) Then
Range("B4:B7").ClearContents
Range("B4") = Worksheets("Namen").Range("B" & X)
Range("B5") = Trim$(Worksheets("Namen").Range("C" & X) _
& " " & Worksheets("Namen").Range("D" & X) _
& " " & Worksheets("Namen").Range("E" & X))
Range("B6") = Worksheets("Namen").Range("H" & X) & " " & Worksheets("Namen").Range("I" & X)
Range("B7") = Worksheets("Namen").Range("F" & X) & " " & Worksheets("Namen").Range("G" & X)
End If
End If
End Sub
Gruß Gerd
Anzeige
Danke Gerd Perfekt ! ---))
15.07.2017 10:38:35
kurt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige