Office: (Office 2013) Alle Zeilen bearbeiten

Helfe beim Thema Alle Zeilen bearbeiten in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo liebe Excelfreunde, Ich habe hier ein sehr nützlichen VBA-Code übernommen und bei mir im Tabellenblatt1 eingebaut. Dann habe ich im... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Andy1962, 21. Dezember 2015.

  1. Andy1962 Erfahrener User

    Alle Zeilen bearbeiten


    Hallo liebe Excelfreunde,

    Ich habe hier ein sehr nützlichen VBA-Code übernommen und bei mir im Tabellenblatt1 eingebaut.

    Dann habe ich im Tabellenblatt2 eine Liste von Geo-Daten eingetragen welche über eine Suchabfrage zusammengestellt werden. Über einen VBA-Button werden die ermittelten GEO-Daten dann in das Tabellenblatt 1 eins kopiert. Der hier zur Verfügung gestellte VBA-Code gibt mir dann auch wie gewünscht in der ersten Zeile die Straßennamen und Hausnummern raus und ermittelt dann auch die Entfernung.

    Aber leider nur die erste Zeile. Alle anderen gefüllten Zeilen leider nicht. Wobei die Liste je nach Suchanfrage unterschiedlich lang ist.

    Meine Frage ist nun, wie bekomme ich Excel dazu auch für die anderen gefüllten Zeilen eine Abfrage bei Google zu machen und mir so Straße und Hausnummer auszugeben.

    Ich hoffe ihr könnt mir weiterhelfen.

    Ganz liebe Grüße
    Andreas
     
    Andy1962, 21. Dezember 2015
    #1
  2. Andy1962 Erfahrener User
    Gesundes neues Jahr wünsche ich euch allen

    Ich wollte noch mal fragen, ob mir jemand bei meinem Problem helfen kann.

    Liebe Grüße
    Andreas
     
    Andy1962, 5. Januar 2016
    #2
  3. RPP63
    RPP63 Erfahrener User
    Hallo Andreas!
    Findest Du nicht, dass zur Beantwortung Deiner Frage Deine Mappe incl. Code notwendig wäre?
    Wie soll man Dir sonst helfen?

    Gruß Ralf
     
  4. Andy1962 Erfahrener User

    Alle Zeilen bearbeiten

    Hallo Ralf,

    Die Datei ist für das Forum hier zu groß

    Daher kann ich leider nur den Code anbieten

    Option Explicit


    Private Sub CommandButton1_Click()
    Worksheets("Tabelle3").Range("q2:r250").Copy
    Worksheets("Tabelle1").Range("a2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

    End Sub




    'Hinweis:
    'Bim Kopieren in ein neues Projekt muss ein Verweis auf "MicrosoftXML, V#.##" gesetzt werden.


    'Sub zum Anzeigen der Route im Browser bei Doppelklick:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error GoTo Er

    If Intersect(Range("A2:E150" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row), Target) Is Nothing Then Exit Sub


    Dim GMaps As clsGMaps
    Dim s As String

    Set GMaps = New clsGMaps
    If MapCells(GMaps, Target) Then
    s = GMaps.CreateUrl
    If Len(s) > 0 Then ActiveWorkbook.FollowHyperlink Address:=s, NewWindow:=True
    End If

    Ex:
    Set GMaps = Nothing
    Exit Sub
    Er:
    Application.Cursor = xlDefault
    MsgBox CreateErrorMsgText(Err.Number, Err.Description), vbCritical, "Sub: Worksheet_BeforeDoubleClick in Tabelle1"
    Resume Ex
    'For debug:
    Resume
    'End Sub

    'Sub für Ermittlung der Entfernung:
    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Er
    If Intersect(Range("A2:B150" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row), Target) Is Nothing Then Exit Sub


    Dim GMaps As clsGMaps
    Set GMaps = New clsGMaps
    If MapCells(GMaps, Target) Then GMaps.GetGoogleMaps

    Ex:
    Set GMaps = Nothing
    Exit Sub
    Er:
    Application.Cursor = xlDefault
    MsgBox CreateErrorMsgText(Err.Number, Err.Description), vbCritical, "Sub: Worksheet_Change in Tabelle1"
    Resume Ex
    'For debug:
    Resume
    End Sub

    Private Function MapCells(ByVal o As clsGMaps, Target As Range) As Boolean
    On Error GoTo Er

    'Hier jeweils die Zellen zuweisen
    'Es müssen mindestens die Zellen für Start- und Zieladresse zugewiesen werden
    'alle anderen Felder sind optional...
    With o.Cells
    'Pflichtfelder:
    .StartAddress = ActiveSheet.Cells(Target.Row, 1)
    .EndAddress = ActiveSheet.Cells(Target.Row, 2)

    'optionale Felder:
    .KM = ActiveSheet.Cells(Target.Row, 3)
    .Time = ActiveSheet.Cells(Target.Row, 4)
    .Link = ActiveSheet.Cells(Target.Row, 5)

    'ebenfalls optional
    'In diesem Beispiel werden die von GoogleMaps ermittelten
    'Start und Zieladressen in das ursprüngliche Erfassungsfeld eingetragen.
    'Also in Spalte A und B.
    'Man kann diese Zuweisung auch weglassen oder andere Spalten zuweisen...
    .GMapsStartAddress = ActiveSheet.Cells(Target.Row, 1)
    .GMapsEndAddress = ActiveSheet.Cells(Target.Row, 2)
    End With
    MapCells = True

    Ex:
    Exit Function
    Er:
    Application.Cursor = xlDefault
    MsgBox CreateErrorMsgText(Err.Number, Err.Description), vbCritical, "Sub: ReadGMaps in Tabelle1"
    Resume Ex
    'For debug:
    Resume
    End Function

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim i As Integer
    Cells.Interior.ColorIndex = xlNone
    i = ActiveCell.Row
    If i >= 2 Then Range(Cells(i, 1), Cells(i, 5)).Interior.ColorIndex = 8
    End Sub

    Sub AktualisiereZellen()
    Application.CalculateFull
    End Sub

    'Private Sub Worksheet_Activate()

    'Calculate

    ' End Sub
    If Not Intersect(Me.Range("a:a"), Target) Is Nothing Then
    Call macro
    End If
    Sub Zellen_fuellen()
    Dim f As Object
    Set f = Application.WorksheetFunction

    For Zeile = 2 To 250 'Hier musst du die Zeilen angeben, die bearbeitet werden sollen!

    If Not IsEmpty(Worksheets("Data1").Cells(Zeile, 1)) And _
    Not IsEmpty(Worksheets("Data2").Cells(Zeile, 1)) Then

    With Worksheets("Calc2")

    For i = 1 To 2
    myrange = Worksheets("Data" & i).Range("B" & Zeile & ":IV" & Zeile)
    If f.Count(myrange) <> 0 Then 'Kein Teilen durch Null möglich!
    .Cells(Zeile, 1 + i) = f.Sum(myrange) / f.Count(myrange)
    End If
    Next i

    .Cells(Zeile, 4) = .Cells(Zeile, 2) - .Cells(Zeile, 3)

    End With

    End If

    Next Zeile

    End Sub

    Ich muss dazu sagen, dass ich ein absoluter VBA-Laie bin.

    Gruß
    Andreas
     
    Zuletzt bearbeitet: 5. Januar 2016
    Andy1962, 5. Januar 2016
    #4
Thema:

Alle Zeilen bearbeiten

Die Seite wird geladen...
  1. Alle Zeilen bearbeiten - Similar Threads - Zeilen

  2. Spalte beim Öffnen filtern Nutzerabhängig

    in Microsoft Excel Hilfe
    Spalte beim Öffnen filtern Nutzerabhängig: Hallo zusammen, Ich habe eine alte Excel-Datei, die beim Öffnen Nutzerabhängig eine Spalte filtert. Dh. bspw. Nutzer Thomas Müller (User-ID: id1234) öffnet die Datei und es werden automatisch nur...
  3. Mit Index & Vergleich in die richte Zeile.

    in Microsoft Excel Hilfe
    Mit Index & Vergleich in die richte Zeile.: Servus @all ich da ein Problem, vielleicht auch die Falsche Herangehensweise. D E K 109858053 2021-10-02 109858053...
  4. SVERWEIS beim Kopieren nur eine Zeile weiter

    in Microsoft Excel Hilfe
    SVERWEIS beim Kopieren nur eine Zeile weiter: Liebe Community, ich verzweifle ein bisschen und vielleicht ist meine Idee auch gar nicht umsetzbar. Ich habe auf einem Tabellenblatt ein paar Namen untereinander. Nun möchte ich auf einem...
  5. Zeilen mit dem selben Namen löschen

    in Microsoft Excel Hilfe
    Zeilen mit dem selben Namen löschen: Hallo, bei einer Übung hatte ich in einer langen Excel-Datei alle Zellen löschen müssen, die erneut den selben Namen haben Ich habe mit Suchen die Zeilen gefunden und per Hand gelöscht. Gibt es...
  6. VBA Text in Zellen einfügen und farbigem Hintergrund

    in Microsoft Excel Hilfe
    VBA Text in Zellen einfügen und farbigem Hintergrund: Hallo zusammen, ich möchte eine Zeile mit Text und farbigem Hintergrund einfügen. Ich habe bereits einen kleinen Schnippsel VBA-Code gefunden. Dieser erstellt in der Tabelle Tabelle1 in Zeile 2...
  7. neue Zeile automatisch einfügen

    in Microsoft Excel Hilfe
    neue Zeile automatisch einfügen: Ich habe eine Tabelle und möchte wenn ich die Zelle "D8" etwas einschreibe das die gesamte Zeile 8 kopiert, ohne Zelle "D8" und als Zeile 9 eingefügt wird. Wenn jetzt in Zelle "D9" etwas...
  8. Formel in nächste Zeile kopieren

    in Microsoft Excel Hilfe
    Formel in nächste Zeile kopieren: Hallo Zusammen, in meiner Arbeitsmappe im Anhang,befinden sich in den Zellen J3 und L3 Formeln.Die Zellen in der die Formeln stehen sind Schreibgeschützt. Da in diesem Blatt fortlaufend Daten...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden